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PREFACE 



This publication is composed of four parts. Part 1 
is a description of each of the components of the 
monitor system. Sections of Part 1 are devoted to: 



System Communication areas 

System Loader 

Cold Start Programs 

Resident Monitor 

Supervisor 

Core Image Loader 

Core Load Builder 

Disk Utility Program (DUP) 

Assembler Program 

FORTRAN Compiler 

System Library 

Stand-alone Utilities 



Each description includes a discussion of the logical 
structure and functional operation of the component, 
table formats, and core storage layouts. 

Part 2 is a description of the techniques and pro- 
cedures for use by personnel involved in system 
maintenance and or modification during error diag- 
nosis and program analysis. 

Part 3 is the flowcharts for the monitor system 
components described in Part 1. 

Part 4 is the appendices provided to support 
Parts 1 through 3. 



CONVENTIONS OBSERVED 

The following conventions have been observed in this 
publication: 

• Numbers written in the form /XXXX are hexa- 
decimal numbers; numbers written without a 
preceding slash (/) are decimal numbers. 

• The diagrams showing the layouts of core storage 
are intended to illustrate the contents of core 
storage and their relative locations; no exact 
representation of size or proportion is intended. 

• The use of absolute addresses has been avoided 
in this manual; symbolic addresses have been 
used instead. The absolute equivalents to these 
addresses may be found in the listing in Appen- 
dix B. 
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ming and Operator's Guide (Form C26-3717) 
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SECTION 1. INTRODUCTION 



The 1130 Disk Monitor System, Version 2, consists 
of the following components: 



Communication Areas 

This component consists of the in-core communica- 
tion area (COMMA) and the disk-resident communica- 
tion area (DCOM). 

Generally speaking, COMMA contains only those 
parameters required by the monitor system to fetch 
a program stored on disk in disk core image format 
(DCI). 

DCOM contains all the parameters required by 
the monitor system that are not found in COMMA. 



System Loader 

This component provides the means for loading all, 
or reloading a part of, the monitor system onto disk. 
In other words, the System Loader generates the 
monitor system on disk. 



^old Start Programs 



This component consists of the Cold Start Loader and 
the Cold Start Program. 

The Cold Start Loader is the bootstrap loader used 
in the IPL procedure to initiate the operation of the 
Cold Start Program. 

The Cold Start Program reads the monitor system, 
i. e. , the Resident Monitor, into core storage and 
transfers control to it. 



CALL LINK, and CALL EXIT statements, and 
various I/O traps. 

One of the three disk I/O subroutines is present 
in the Resident Monitor at all times. The disk I/O 
subroutine in the Resident Monitor is the only such 
subroutine in core storage at any one time. Any of 
the three disk I/O subroutines can be used by the 
user. The DISKZ subroutine is used by the 
monitor system programs; DISKZ is initially loaded 
when a cold start is performed. 



Supervisor 

This component consists of the Monitor Control 
Record Analyzer (MCRA), the Supervisor Control 
Record Analyzer, the Auxiliary Supervisor, and 
the System Core Dump program. 

The MCRA is the program that reads and analyzes 
the monitor control records, initiating the actions 
indicated on those control records. 

The Supervisor Control Record Analyzer is the 
program that reads and analyzes the Supervisor 
control records, passing the information on these 
control records to the Core Load Builder. 

The Auxiliary Supervisor is the program called 
to perform specialized supervisory functions for the 
monitor system. 

The System Core Dump program is the program 
used to print all or selected portions of the contents 
of core storage on the principal print device. The 
dump can be dynamic (execution of the calling core 
load is resumed after the completion of the dump) or 
terminal (a CALL EXIT is executed after the com- 
pletion of the dump). 



Resident Monitor 

This component consists of three intermixed parts: 
(1) COMMA, (2) the Skeleton Supervisor, and (3) 
one of the three disk I/O subroutines — DISKZ, 
DISK1, or DISKN. 

COMMA is defined above, under Communication 
Areas. 

The Skeleton Supervisor consists of the core- 
resident coding necessary to process CALL DUMP, 



Core Image Loader 

This component consists of two parts, the first being 
an intermediate supervisor for the monitor system, 
the second being a loader for user and system pro- 
grams in core image format. 

Phase 1 of the Core Image Loader is fetched into 
core storage as the result of an entry to the 
Skeleton Supervisor. Phase 1 is the program that 
determines the type of entry made and the program(s) 
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to be fetched as a result. 

Phase 2 of the Core Image Loader is the program 
that fetches into core storage and, if indicated, 
transfers control to the program(s) indicated by 
phase 1. 



Core Load Builder 



This component is the program that converts a main- 
line program from disk system format (DSF) to a core 
load, a program in disk core image format (DCI); 
that is, the Core Load Builder relocates the mainline 
program and all the subroutines required and con- 
structs the other necessary parts of the core load, 
e.g. , the transfer vector, LOCALS, and SOCALs. 



Disk Utility Program (PUP) 

This component provides the means for performing 
the following functions, largely through the use of 
control records only: 

• Make available the contents of disk storage in 
punched or printed format — DUMP, 
DUMPDATA. 

• Print a map of the contents of the variable por- 
tions of disk storage — DUMP LET, 
DUMPFLET. 

• Store information on the disk in disk system 
format (DSF), disk data format (DDF), or disk 
core image format (DCI) — STORE, 
STOREDATA, STOREDATACI, STORECI, 
STOREMOD. 

• Remove information from the User/Fixed Area -- 
DELETE. 

• Alter the allocation of the Fixed Area on the disk 
or delete the Assembler Program and/or the 
FORTRAN Compiler from the monitor system — 
DEFINE. 

• Initialize the Working Storage area on disk — 
DWADR. 

• Provide file protection for the contents of disk 
storage. 



Assembler Program 

This component is the program that translates the 
statements of a source program written in the IBM 
1130 Assembler Language into a program in disk 
system format (DSF). 



FORTRAN Compiler 

This component is the program that translates the 
statements of a source program written in the IBM 
1130 Basic FORTRAN IV Language into a program in 
disk system format (DSF). 



System Library 

This component consists of (1) a complete library 
of input/output (except disk I/O), data conversion, 
arithmetic, and function subroutines, (2) selective 
dump subroutines, and (3) special programs for disk 
maintenance. 



System Device Subroutines 

This component consists of a library of special 
subroutines, one for each device (except the disk) 
used by the monitor system programs. These sub- 
routines and DISKZ are the only device subroutines 
used by the monitor system programs. 



Utilities 

This component consists of the following stand-alone, 
self-loading utility programs: 



The Disk Cartridge Initialization Program (DCIP) 
The Core-Dump-to-Printer Program 



In general the organization of and flow of control 
through the 1130 Disk Monitor System, Version 2, 
is shown in Flowchart DMS01. 



SECTION 2. COMMUNICATIONS AREAS 



THE IN-COEE COMMUNICATIONS AREA (COMMA) 

COMMA includes, for the most part, only those 
system parameters that are required to link from one 
core load to another that is stored on disk in disk 
core image format (DCI). The exceptions are those 
parameters that would create awkward communica- 
tion between monitor system programs if they 
resided in DCOM. 

COMMA is not a single block of locations in the 
Resident Monitor; the system parameters that con- 
stitute COMMA are intermixed with the various parts 
of the Skeleton Supervisor. 

Table 1 is a description of COMMA by parameter. 
The entries are arranged in alphabetic sequence for 
easy reference. See the listing of the Resident 
Monitor in Appendix B. Listings for the absolute 
addresses associated with the parameters in this 
table. 



THE DISK-RESIDENT COMMUNICATIONS AREA 
(DCOM) 

DCOM contains those parameters that must be passed 
from one monitor system program to another but are 
not found in COMMA. 

Table 2 is a description of DCOM by parameter. 
The entries are arranged in alphabetic sequence for 
easy reference. See the listing of DCOM in Appendix 
B. Listings for the relative addresses associated 
with the parameters in this table. 



DRIVE- AND CARTRIDGE -DEPENDENT 
PARAMETERS 

Whenever a parameter that is associated with a disk 
cartridge is required for system use during a job, 
a table of five such parameters (a quintuple), one for 
each of the five possible drives, is reserved in 
COMMA or DCOM. The first of the five parameters 
is assigned a label. Such a parameter is said to be 
a drive- or cartridge-dependent parameter, which- 
ever term is applicable. 

The position in the quintuple indicates the logical 
drive number of the drive on which the associated 
cartridge is mounted. Thus, the first parameter in 
a quintuple is associated with logical drive zero, the 
second with logical drive one, etc. The assignment 
of logical drive numbers is done during JOB process- 
ing; that is, the logical drive numbers are assigned 
in the sequence specified on the JOB monitor control 
record. Thus, the first cartridge specified is 
assigned to logical drive zero, the second to logical 
drive one, etc. If no cartridges at all are specified, 
then the current logical drive zero is defined as 
logical drive zero for the job being defined. The 
drive- and cartridge-dependent parameters for all 
unspecified cartridges are cleared to zero, except 
for logical drive zero as noted above. 

JOB processing includes the reading of DCOM and 
the ID sector from each specified cartridge and the 
setting up of the drive- and cartridge-dependent 
quintuples in DCOM on the master cartridge. 

Initialization of the quintuples is done during cold 
start processing, which defines logical drive zero 
(and all associated drive- and cartridge-dependent 
parameters for logical drive zero) as the physical 
drive selected in the Console Entry switches (see 
Section 4. Cold Start Programs) . All other values 
in the drive- and cartridge-dependent quintuples are 
cleared to zero. 
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Table 1 . The Contents of COMMA 



LABEL 


DESCRIPTION 


$ACDE 
through 
$ACDE+4 


$ACDE contains the device code for the physical disk 
drive assigned as logical disk drive 0. $ACDE+1 through 
$ACDE+4 contain the device codes for logical disk drives 
1, 2, 3, and 4, respectively. The device code is 
contained in bits 11-15. 


$ACEX 

and 

$ACEX+1 


$ACEX and $ACEX+1 are the locations in which the 
contents of the accumulator and extension, respec- 
tively, are saved by the Supervisor when entered at 
the $DUMP entry point. 


$CCAD 


$CCAD contains the address of the lowest-addressed 
word of COMMON to be saved on the Core Image 
Buffer (CIB) by the Core Image Loader. 


$CH12 


$CH12 contains the address of $CPTR, $1132, or $1403 
depending upon the device defined as the principal 
print device — the Console Printer, 1 132 Printer, or 
1403 Printer, respectively. 


$CIBA 


$CIBA contains the sector address of the first sector of 
the Core Image Buffer (CIB) In use by the monitor 
system programs during the current job. The logical 
disk drive number is contained in bits 0-3. 


$CIBA-1 


$CIBA-1 contains 4095 minus the location of $CIBA. 
This value is used as the word count (In conjunction 
with $CIBA, which contains the sector address of the 
CIB) in saving the first 4K of core storage following 
an entry at $DUMP. 


$CILA 


$CILA contains the address of the end of the disk I/O 
subroutine currently In core storage, minus 4. $CILA 
always points to the word count (followed by the 
sector address) of phase 1 of the Core Image Loader. 


$CLSVV 


$CLSW is a switch Indicating to phase 2 of the Core 
Image Loader the function It is to perform. The switch 
settings are as follows: 




Setting Meaning 




Positive Load the indicated disk I/O 

subroutine 
Zero or Load the indicated core load 
Negative and Its required disk I/O 

subroutine. Zero indicates 
that the core load has just 
been built by the Core Load 
Builder; negative Indicates 
that the core load is stored 
in the User or Fixed Area in 
core Image format. 


$COMN 


$COMN contains the number of words of COMMON 
defined for the core load currently in execution. 


$CORE 


$CORE contains a code indicating the number of words 
of core storage within which the monitor system pro- 
grams are to operate. The codes are as follows: 




Code Size of Core Storage 




/1 000 4096 words 
/2000 8192 words 
/4000 16384 words 
/8000 32768 words 


$CPTR 


$CPTR is a dummy channel 12 indicator for the 
Console Printer. 


$CTSW 


$CTSW is a switch indicating that a monitor control 
record has been detected by a monitor system program 
other than the Supervisor. The switch settings are as 
follows: 




Setting Meaning 




Positive Monitor control record detected 
Zero Monitor control record not detected 



LABEL 


DESCRIPTION 


$CWCT 


$CWCT contains the number of words of COMMON 
to be saved on the Core Image Buffer (CIB) by the 
Core Image Loader. 


$CWCT+1 


$CWCT+1 contains the sector address of the first sector 
of the Core Image Buffer (CIB) to be used for the saving 
of COMMON by the Core Image Loader. The logical 
disk drive number Is contained in bits 0-3. 


$CXR1 


$CXR1 is the location in which the contents of index 
register 1 are saved by the Skeleton Supervisor. 


$CYLN 
through 
$CYLN+4 


$CYLN contains the sector address of sector on the 
cylinder over which the access arm on logical disk 
drive is currently positioned. $CYLNH through 
$CYLN+4 contain analogous sector addresses for logi- 
cal disk drives 1, 2, 3, and 4, respectively. 


$DABL 


$DABL contains the second word of the lOCC used 
to reset the Synchronous Communications Adapter. 
$DABL is, therefore, aligned on an odd word boundary. 
$DABL contains /5540, the bit configuration of an 
Initiate Write with modifier bit 9 on. 


$DADR 


$DADR contains the disk block address of the first 
sector of the program or core load to be fetched into 
core storage and executed. 


$DBSY 


$DBSY is a switch indicating whether or not a disk 
I/O operation is in progress. The switch settings are 
as follows: 




Setting Meaning 




zero Disk I/O not in progress 
non-zero Disk I/O in progress 




$DBSY is simultaneously used as a retry counter by 
DISKZ and DISK1. 


$DCDE 


$DCDE contains the number of the logical disk drive on 
which the program to be fetched by the Core Image 
Loader is to be found. The drive number is contained 
in bits 0-3. 


$DCYL 
through 
$DCYL+14 


$DCYL through $DCYL+2 contain the defective cyl- 
inder addresses (the contents of words 1, 2, and 3 
of sector 0, cylinder 0) for the cartridge mounted 
on logical disk drive 0. $DCYL+3 through $DCYL+14 
contain analogous addresses for the cartridges on 
logical disk drives 1, 2, 3, and 4, respectively. 


$DDSW 


$DDSW contains the device status word (DSW) sensed 
during the last disk I/O operation performed. 


$DMPF 


$DMPF contains the contents of the word following 
the branch to the $DUMP entry point, i.e., the 
dump format code. 


$DREQ 


$DREQ is a switch indicating the disk I/O subroutine 
that has been requested. The switch settings are as 
follows: 




Setting Meaning 




positive DISKN 
zero DISK! 
negative DISKZ 


$DZ1N 


$DZ1N is a switch indicating the disk I/O subroutine 
presently in core storage. The swi tch settings are as 
follows: 




Setting Meaning 




negative DISKZ is in core 
zero DISK1 is in core 
positive DISKN is in core 



Table 1 . The Contents of COMMA (Continued) 



LABEL 



$FPAD 
through 
$FPAD+4 



$HASH 
through 
$HASH + 11 

$IBSY 



$IBT2 



$IBT4 



$IOCT 



$IREQ 



$KCSW 



$LAST 



DESCRIPTION 



$LKNM 

and 

$LKNM+1 



$FPAD contains the sector address of the first sector of 
Working Storage on the cartridge mounted on logical 
disk drive 0. The logical disk drive number is con- 
tained in bits 0-3. $FPAD+1 through $FPAD+4 contain 
analogous sector addresses for the cartridges on logical 
disk drives 1, 2, 3, and 4, respectively. 

$FPAD through $FPAD+4 are effectively the file- 
protection addresses for the cartridges in use. These 
addresses are adjusted in non-temporary mode only. 

$HASH through $HASH + 1 1 are a work area used vari- 
ously by the monitor system programs. 



$IBSY is a switch indicating whether or not an I/O 
operation involving the principal I/O device is in 
progress. The switch settings are as follows: 



Setting 

zero 
non-zero 



Meaning 

Principal I/O device not busy 
Principal I/O device busy 



$IBT2 contains the address of the interrupt branch 
table (IBT) for interrupt level 2. Since the disk is the 
only device on interrupt level 2, $1 BT2 contains the 
address of the interrupt entry point in the disk I/O 
subroutine currently in core storage. 

$IBT4 contains the address of the interrupt branch table 
(IBT) for interrupt level 4 used by the program currently 
in control . 

$IOCT is the IOCS counter for I/O operations. $IOCT 
is incremented by 1 for each I/O operation initiated. 
$IOCT is decremented by 1 for each I/O operation 
completed or terminated. $IOCT equals zero when 
all I/O operations have been completed. 

$IREQ contains the address of the subroutine servieinq 
the INTERRUPT REQUEST key on the Keyboard (interrupt 
level 4). This address is supplied by the user core load 
using the INTERRUPT REQUEST key. Unless an address 
is supplied $IREQ contains the address of the $DUMP 
entry point. 

$KCSW is a switch indicating whether or not (1) the 
Keyboard has been defined as the principal input device 
and/or (2) the Console Printer has been defined as the 
principal print device. The switch settings are as 
follows: 

Settings Meaning 

negative Either the Console Printer is the princi- 

pal print device or the Keyboard is 
the principal input device, but not 
both 

zero Neither is the Console Printer the 

principal print device nor is the 
Keyboard the principal input device 

positive The Console Printer is the principal 

print device and the Keyboard is 
the principal input device 

Depending on the setting on $KCSW, the system device 
subroutine for the Keyboard/Console Printer either 
permits or inhibits the overlapping of input and output. 

$LAST is a switch indicating whether or not the last 
card has been read by the system device subroutine serv- 
icing the card input device. The switch settings are as 
follows: 

Settings Meaning 

zero Last card has not been read 

non-zero Last card has been read 

$LKNM and $LKNM+1 contain the name, In name 
code, of the program or core load to be executed next. 
$LKNM is aligned on an even word boundary. 



LABEL 


DESCRIPTION 


$LSAD 


$LSAD contains the absolute sector address of the first 
sector of the first LOCAL (or SOCAL if there are no 
LOCALs) for the core load currently in core. The 
logical disk drive number is contained in bits 0-3. 


$NDUP 


$NDUP is a switch indicating whether or not DUP 
operations may be performed. The switch settings are 
as follows: 




Setting Meaning 




zero Permit DUP operations 
non-zero Inhibit DUP operations 


$NEND 


$NEND is equivalent to the address of the end of 
DISKN plus 1. 


$NXEQ 


$NXEQ is a switch indicating whether or not exe- 
cution of a user core load may be performed. The 
switch settings are as follows: 




Setting Meaning 




zero Permit core load execution 




non-zero Inhibit core load execution 


$PAUS 


$PAUS is a switch set by every ISS that does not set 
$IOCT when initiating an I/O operation, e.g., SCAT1. 
The switch settings are as follows: 




Setting Meaning 




zero Exit from the PAUS subroutine 
non-zero Branch back to the WAIT in the 
PAUS subroutine 


$PBSY 


$PBSY is a switch indicating whether or not an I/O 
operation involving the principal print device is in 
progress. The switch settings are as follows: 




Setting Meaning 




zero Principal print device not busy 
non-zero Principal print device busy 


$PGCT 


$PGCT contains the number, in binary, of the page of 
the job listing currently being printed. 


$PHSE 


$PHSE contains the SLET ID number (in bits 8-15) of the 
phase of the monitor system program currently in con- 
trol, excepting the Cold Start Program and the Skeleton 
Supervisor. $PHSE always contains zero when a user 
core load is in control. Bits 0-7 of $PHSE sometimes 
contain a subphase ID number. 


$RMSW 


$RMSW is a switch indicating the entry point at which 
the Skeleton Supervisor was entered and, hence, the 
type of CALL causing the Skeleton Supervisor to be 
entered. The switch settings are as follows: 




Setting Meaning 




positive Entry at $DUMP 
zero Entry at $LINK 
negative Entry at $EXIT 


$RWCZ 


$RWCZ is a switch indicating the type of operation last 
performed by the CARDZ subroutine. The switch settings 
are as follows: 




Setting Meaning 




zero Last operation a Read 
non-zero Last operation a Punch 


$SCAN 
through 
$SCAN+7 


$SCAN through $SCAN+7 are an area used by the 1 132 
Printer when printing a line. This area is also used as 
a work area by the monitor system programs. 
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Table 1 . The Contents of COMMA (Concluded) 



Table 2 . The Contents of DCOM 



LABEL 



$SNLT 



DESCRIPTION 



$SY5C 



$UFDR 



$UFIO 



$ULET 

through 

$ULET+4 



$WRD1 
$WSDR 

$ZEND 
$1END 
$1132 



1403 



$SNLT is the location used for sense light simulation 
by FORTRAN programs. The bits are used as follows: 



Bit 


Sense Light 


14 


1 


13 


2 


12 


3 


11 


4 



$SYSC contains the version and modification level 
numbers identifying Hie 1130 Disk Monitor System 
stored on the master cartridge. Bits 0-7 contain the 
version number; bits 8-15 contain the modification 
level number. 

$UFDR contains the number of the logical disk drive 
on which the unformatted I/O area in use by the 
monitor system programs during the current job is to 
be found. The drive number is contained in bits 0-3. 

$UFIO contains the displacement, in sectors, from the 
start of the unformatted I/O area to the sector at 
which the writing or reading of the next logical 
record to or from the unformatted I/O area is to begin. 

$ULET contains the sector address of the first sector 
of LET on the cartridge mounted on logical disk drive 
0. The logical disk drive number is contained in 
bits 0-3. $ULET+1 through $ULET+4 contain ana- 
logous sector addresses for the cartridges on logical 
disk drives 1, 2, 3, and 4, respectively. 

$WRD1 contains the address at which the first word of 
the core image header of the core load to be/being 
executed will/does reside. 

$WSDR contains the number of the logical disk drive 
on which the Working Storage in use by the monitor 
system programs during the current job is to be found. 
The drive number is contained in bits 0-3. 

$ZEND is equivalent to the address of the end of 
DISKZplus 1. 

$1END is equivalent to the address of the end of 
DISK1 plus 1. 

$1 132 is a switch indicating whether or not channel 
12 has been detected on the 1132 Printer. The 
switch settings are as follows: 



Setting 



Meaning 



zero Channel 12 not detected or a skip 

to channel 1 executed 
non-zero Channel 12 detected 

$1403 is a switch indicating whether or not channel 
12 has been detected on the 1403 Printer. The 
switch settings are as follows: 

Setting Meaning 

zero Channel 12 not detected or a skip 

to channel 1 executed 
non-zero Channel 12 detected 



LABEL 



#ANDU 
through 
#ANDU+4 



#BNDU 
through 
#BNDU+4 



#CBSW 



#CIAD 



# CIBA 

through 

#CIBA+4 



#CIDN 
through 
#CIDN+4 



#CSHN 
through 
#CSHN+4 



'DBCT 



#DCSW 



#ENTY 



DESCRIPTION 



*ANDU contains the displacement, in disk blocks, 
from word 0, sector 0, cylinder on the cartridge 
mounted on logical disk drive to the last disk block 
of the User Area on that cartridge, plus 1 disk block. 
*ANDU+1 through *ANDU+4 contain analogous dis- 
placements for the cartridges on logical disk drives 1, 
2, 3, and 4, respectively. 

# ANDU through # ANDU+4 are effectively the ad- 
justed addresses of the ends of the User Areas on the 
cartridges In use. These addresses are adjusted in- 
stead of *BNDU through *BNDU+4 during temporary 
mode, in parallel with # BNDU through i * t BNDU+4 
during non -temporary mode. 

*BNDU contains the displacement, in disk blocks, 
from word 0, sector 0, cylinder on the cartridge 
mounted on logical disk drive to the last disk 
block of the User Area on that cartridge, plus 1 disk 
block. #BNDU+1 through #BNDU+4 contain ana- 
logous displacements for the cartridges on logical 
disk drives 1, 2, 3, and 4, respectively. 
# BNDU through #BNDU+4 are effectively the base 
addresses of the ends of the User Areas on the 
cartridges in use. These addresses are adjusted only 
during non-temporary mode, in parallel with *ANDU 
through # ANDU+4. 

*CBSW is a switch indicating to the Core Load Builder 
the type of exit to be made. The switch settings are 
as follows: 

Setting Meaning 

zero Return to Core Image Loader 

non-zero Return to DUP 

*CIAD contains the relative location in sector 
@IDAD (within DISKZ) where the address of the 
Core Image Loader is to be found. 

*CIBA contains the sector address of the Core Image 
Buffer (CIB) on the cartridge mounted on logical disk 
drive 0. The logical disk drive number is contained 
in bits 0-3. #CIBA+1 through # CIBA+4 contain 
analogous sector addresses for the cartridges on logical 
disk drives 1, 2, 3, and 4, respectively. 

*CIDN contains the ID (the contents of word 4, 
sector 0, cylinder 0) of the cartridge mounted on 
logical disk drive 0. # CIDN+1 through # CIDN+4 
contain the IDs of the cartridges on logical disk 
drives 1, 2, 3, and 4, respectively. 

*CSHN contains the number of sectors available for 
expansion of the monitor system programs on the 
system cartridge mounted on logical disk drive 0. 
"CSHN+1 through *CSHN+4 contain analogous num- 
bers for any system cartridges mounted on logical 
disk drives 1, 2, 3, and 4, respectively. 

*DBCT contains the number of disk blocks occupied 
by the program, core load, or data file named on a 
DUP control record. 

*DCSW is a switch indicating to the ADRWS program 
the type of exit to be made. The switch settings are 
as follows: 

Setting Meaning 

zero Branch to $EXIT in Skeleton 

Supervisor 
non -zero Return to DUP 

"eNTY contains the address of entry point 1 in the 
program placed into system Working Storage by the 
Assembler or FORTRAN Compiler. This address is 
the address to be placed into word 12 of the DSF pro- 
gram header by DUP or the address from which word 1 
of the core image header is generated by the Core 
Load Builder. 



Table 2 . The Contents of DCOM (Continued) 



LABEL 


DESCRIPTION 


#FCNT 


^FCNT contains the number of files defined for the 
core load being built or the execution to be in it— 
a ted. 


# FHOL 


^FHOL contains the displacement, in disk blocks, 
from word 0, sector 0, cylinder to the first disk 
block of the largest unused (1DUMY) area In the 
Fixed Area on the cartridge to which a STORE oper- 
ation is to be made. 


#FLET 

through 

#FLET+4 


^FLET contains the sector address of the first sector 
of FLET on the cartridge mounted on logical disk 
drive 0. The logical disk drive number is contained 
in bits 0-3. # FLET+1 through # FLET+4 contain 
analogous sector addresses for the cartridges on 
logical disk drives 1, 2, 3, and 4, respectively. 


#FMAT 
through 
#FMAT+4 


*FMAT is a switch indicating the format of the con- 
tents, if any, of Working Storage on the cartridge 
mounted on logical disk drive 0. 'FMAT+1 through 
"rMAT+4 are analogous switches for Working Stor- 
age on logical disk drives 1,2,3 and 4, respectively. 
The switch settings are as follows: 




Setting Meaning 




negative disk core image format (DCI) 
zero disk system format (DSF) 
positive disk data format (DDF) 


#FPAD 
through 
#FPAD+4 


^FPAD contains the sector address of the first sector 
of Working Storage on the cartridge mounted on 
logical disk drive 0. The logical disk drive number 
is contained in bits 0-3. #FPAD+1 through 
^FPAD+4 contain analogous sector addresses for the 
cartridges on logical disk drives 1, 2, 3, and 4, 
respectively. 

# FPAD through # FPAD+4 are effectively the file- 
protection addresses for the cartridges in use. These 
addresses are adjusted in non-temporary mode only. 


#FRDR 


^FRDR contains the number of the logical disk drive 
on which the cartridge specified by the "FROM" 
cartridge ID (in columns 31-34 of the DUP control 
record) is mounted. The drive number is contained 
in bits 12-15. A negative number indicates that no 
ID was specified. 


#FSZE 


*FSZE contains the number of disk blocks contained 
in the largest unused (IDUMY) area in the Fixed Area 
on the cartridge to which a STORE operation is to be 
made. 


#JBSW 


*JBSW is a switch indicating the mode of operation 
established by the. last JOB monitor control record. 
The switch settings are as follows: 




Setting Meaning 




zero temporary mode 
non-zero non-temporary mode. 


#LCNT 


*LCNT contains the number of LOCALs specified for 
the execution to be initiated or the core load being 
built. 


#MDF1 


# MDF1 contains, in bits 8-15, the number of DUP 
control records to be processed by DUP when called 
by the MODIF program. *MDF1 also contains, in 
bits 0-7, the number of errors detected by DUP during 
the processing of the DUP control records for the 
MODIF program. 


#MDF2 


*MDF2 is a switch indicating to DUP that control 
must be returned to the MODIF program. The switch 
setting are as follows: 




Setting Meaning 




zero Do not return to MODIF 
non-zero Return to MODIF 



LABEL 



#MPSW 



#NAME 

and 

#NAME+1 



#NCNT 



#PCID 

through 

#PCID+4 



#PIOD 



#PPTR 



#RP67 



#SCRA 
through 
#SCRA+4 



#SYSC 



#TODR 



DESCRIPTION 



#MPSW Is a switch indicating to the Core Load Builder 
whether or not a core map is to be printed for each core 
load built during the current execution. The switch 
settings are as follows: 

Setting Meaning 

zero Do not print a core map 

non-zero Print a core map 

#NAME and *NAME+1 contain the name, in name 
code, of the program, core load, or data file currently 
being processed by the Supervisor, DUP, Core Load 
Builder, or Core Image Loader. The name is obtained 
from a control record or from a LET/FLET search. 
^NAME is aligned on an even word boundary. 

#NCNT contains the number of NOCALs specified for 
the execution to be initiated or the core load being 
built. 

*PCID contains the ID (the contents of word 4, sector 
0, cylinder 0) of the cartridge mounted on physical 
disk drive 0, if that drive is "ready". # PCID+1 
through *PCID+4 contain the IDs of the cartridges on 
physical disk drives 1, 2, 3, and 4, respectively, if 
the corresponding drives are "ready". The entries 
for "not ready" drives contain zeroes. 

#PIOD is a switch indicating the device defined as the 
principal I/O device for the system. The switch 
settings are as follows: 

Setting Principal I/O Device 

positive 2501 with 1442, any model 

zero 1442, Model 6 or 7 

negative 1134 with 1055 

# PPTR is a switch indicating the device defined as the 
principal print device for the system. The switch 
settings are as follows: 

Setting Principal Print Device 

positive 1403 Printer 

zero 1 132 Printer 

negative Console Printer 

#RP67 is a switch indicating the type of card I/O 
device present on the system. The switch settings 
are as follows: 

Setting Card I/O Device 

zero 2501 with 1442, Model 5 

positive 1442, Model 6 or 7 

#SCRA contains the sector address of the first sector 
of the Supervisor Control Record Area (SCRA) on the 
cartridge mounted on logical disk drive 0. The logical 
disk drive number is contained in bits 0-3. *SCRA-t 1 
through *SCRA+4 contain analogous sector addresses 
for any system cartridges on logical disk drives 1, 2, 
3, and 4, respectively. 

*SYSC, on a system cartridge, contains the version 
and modification level numbers for the currently resi- 
dent 1 130 Disk Monitor System. Bits 0-7 contain the 
version number; bits 8-15 contain the modification 
level number. 
*SYSC on a non-system cartridge contains zeroes. 

# TODR contains the number of the logical disk drive 
on which the cartridge specified by the "TO" cartridge 
ID (in columns 36-40 of the DUP control record) is 
mounted. The drive number is contained in bits 12-15. 
A negative number indicates that no ID was specified. 
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Table 2 . The Contents of DCOM (Concluded) 



LABEL 


DESCRIPTION 


#UHOL 

#ULET 

through 

#ULET+4 

# USZE 

# WSCT 
through 
# WSCT+4 


*UHOL contains the displacement, in disk blocks, 
from word 0, sector 0, cylinder to the first disk 
block of the largest unused (1DUMY) area in the User 
Area on the cartridge to which a STORE operation is 
to be made. 

*ULET contains the sector address of the first sector of 
LET on the cartridge mounted on logical disk drive 0. 
The logical disk drive number is contained in bits 0-3. 
*ULET+1 through # ULET+4 contain analogous sector 
addresses for the cartridges on logical disk drives 1, 
2, 3, and 4, respectively. 

*USZE contains the number of disk blocks contained 
in the largest unused (1DUMY) area in the User Area 
on the cartridge to which a STORE operation is to be 
made. 

"wSCT contains the number of disk blocks occupied 
by a program, core load, or data file placed into 
Working Storage on the cartridge mounted on logical 
disk drive 0. #WSCT+1 through # WSCT+4 contain 
analogous disk block counts for the contents of Work- 
ing Storage on logical disk drives 1, 2, 3, and 4, 
respectively. 



SECTION 3. SYSTEM LOADER 



FLOWCHARTS 

General: SYL01 

Phase 1: SYL02 

Phase 2: SYL03 - SYL05 

PHASE 1 

FUNCTIONS 



Phase 1 processes the PHID control record, 
checks it for errors, and saves the data obtained 
from it for use by phase 2. The version and modifica- 
tion level number is taken from the PHID control 
record and saved. 

Phase 1 fetches phase 2 from disk into core 
storage and transfers control to it at MAING. 



BUFFERS AND I/O AREAS 



For the card version of the System Loader, phase 1 
determines which card I/O subroutine is to be used, 
i. e. , 2501 or 1442. If 2501, a naturally relocatable 
2501 subroutine overlays the 1442 subroutine that is 
part of this phase . 

Phase 1 also reads the Console Entry switches to 
get the physical drive number (0-4) for the cartridge 
to be loaded. It sets up the PROGRAM STOP key 
interrupt trap. The Keyboard INTERRUPT REQUEST 
key is made non-effective until the monitor system 
programs have been loaded. 

Phase 1 reads the Resident Monitor and DISKZ 
object decks into core storage and initializes them 
preparatory to loading phase 2 of the System Loader 
to disk. 

Phase 1 picks up defective track data from sector 
@IDAD on the cartridge to be used to initialize the 
disk I/O subroutine. 

Phase 1 loads phase 2 to cylinders 198 and 199 
(sectors /0630 through /063F) on disk. (These 
sector addresses are absolute; they are assembled 
as part of the phase 2 deck. ) If an initial load is 
being performed, subphase 1 is loaded to sector 
/0634, overlaying a part of the reload processing 
subroutine. Subphases 2 and 3 are loaded to sectors 
/063B and /063C. 

If an initial load is being performed, phase 1 
stores the Resident Image on sector @RIAD. (DISKZ 
is stored on disk by phase 2. ) 

Phase 1 processes the System Configuration 
records, saving the data obtained in the phase 1 
communications area for use by phase 2. At the 
end of the Configuration records processing, the 
accumulated data is checked for errors and consoli- 
dated for phase 2. If a CORE control record is 
present, its contents are processed and replace the 
calculated core size. 



Card Input 

A; an 80-word buffer that contains card images in 
left-justified 12 bit/word format, as read by the 1442 
or 2501 card I/O subroutine. 

B: a 60-word buffer that contains the 12-bit/word 
data from buffer A after it has been compressed to 
16 bits/word. 



Paper Tape Input 

A_: an 80-word buffer for PTTC/8 records. 

B: a 60-word buffer into which binary data from 
buffer BIGCB is compressed. 

C: a 1-word buffer used for the DEL character 
test when reading binary paper tape records . 

BIGCB: a 108-word buffer for binary paper tape 



records, 108 frames, left- justified. 

Disk Input and Output 

BUFFI.' a 320-word buffer used in all disk I/O 
operations. 

COMMUNICATION FROM PHASE 1 TO PHASE 2 

The card I/O subroutine (2501 or 1442) that was 
selected by phase 1 for use during System Loader 
operation is written onto sector /0638 to be used by 
phase 2 also. 
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Information acquired by phase 1 is accumulated 
in the area in core storage bounded by EDIT and 
EDIT+/0140. This 320-word area, which also con- 
tains a number of error messages, is written to 
sector /0632 before phase 2 is entered. 



PHASE 2 



FUNCTIONS, INITIAL LOAD AND RELOAD 

Phase 2 checks the phase ID number sequence for 
ascending order during initial loads only. 

Phase 2 performs a checksum test on all type A 
(data) records. 

Phase 2 builds the Reload Table in core storage as 
the monitor system program phases are loaded. 
Each 3 -word entry in the table consists of the ID 
number of a phase requesting SLET data, the relative 
location within the requesting phase where the SLET 
data is to be stored, and the number of SLET items 
to be supplied by the System Loader. On an initial 
load, this Reload Table is written to disk in sector 
@RTBL. 

If so indicated by the Load Mode control record, 
phase 2 bypasses the FORTRAN Compiler and/or the 
Assembler Program. 

Phase 2 updates the version and modification level 
numbers in the parameter #SYSC in sector @DCOM 
of the cartridge. These numbers are taken directly 
from the PHID control record. No comparison with 
previous version and modification level numbers is 
made. 

Phase 2 determines from the data obtained from 
the System Configuration records which devices are 
the principal I/O and principal print devices. Phase 
2 builds five special sets of SLET entries for the 
specified devices as well as for the principal I/O and 
print device conversion subroutines. 

Phase 2 steps through the Reload Table and 
searches out every phase requesting SLET data. It 
then searches out the SLET data that is requested, 
places it in the requesting phase, and writes that 
phase back to disk. This continues until the end of 
the Reload Table (/FFFF) is reached. 

Phase 2 substitutes zeros for the SLET data 
requested by a phase if that phase requested a 
FORTRAN Compiler and/or Assembler Program 
SLET entry and the FORTRAN Compiler and/or the 
Assembler Program were bypassed or never loaded. 

Phase 2 displays appropriate error messages, as 
necessary, using the WRTYO subroutine in core 
storage. 



FUNCTIONS, INITIAL LOAD ONLY 

Phase 2 clears to zero the sectors that will become 
the SLET table. The SLET entries are filled in as 
each monitor system program is stored. 

Phase 2 checks for missing phases. All phases 
specified in the PHID control record must be present, 
except when the FORTRAN Compiler and/or the 
Assembler Program are bypassed. 

Phase 2 keeps a record of the highest sector 
loaded so that the sector addresses for the Supervisor 
Control Record Area (SCRA), Core Image Buffer 
(CIB), Location Equivalence Table (LET), and User 
Area (UA) on disk may be correctly established. 

Phase 2 checks the data obtained from the Load 
Mode control record and, if the FORTRAN Compiler 
and/or the Assembler Program are to be bypassed, 
a gap is forced in SLET and filled with zeros. These 
zero entries in SLET occupy as much space as the 
bypassed program(s) would ordinarily require. 



FUNCTIONS, RELOAD ONLY 

Phase 2 verifies that the file-protection address is 
not greater than /062F. (Otherwise, phase 2 cannot 
be temporarily stored on disk. ) 

Phase 2 updates the SLET entries for each phase 
as that phase is reloaded. 

Phase 2 provides for expansion of the system into 
the Cushion Area when required. If a phase grows 
by more than one sector, it is expanded accordingly. 
All subsequent SLET entries are updated each time 
an expansion occurs. A check is made to see that 
the Supervisor Control Record Area (SCRA) is not 
overlaid. 

Phase 2 constructs an in-core Reload Table. At 
the end of the monitor system program reload, the 
data that was accumulated as one or more phases 
were reloaded is first compared with the existing 
Reload Table on disk. Entries are replaced or added 
to the Reload Table as necessary. Then the updated 
Reload Table is processed as described above. 



BUFFERS AND I/O AREAS 



Card Input 

A: an 80-word buffer that contains card images in 
left-justified 12 bit/word format, as read by the 
1442 or 2501 card I/O subroutine. 
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A2; an 80-word buffer used in conjunction with 
buffer A for double buffering capability. This buffer 
is used only by the 2501 card I/O subroutine. 

B: a 60-word buffer into which 12 bits/word data is 
compressed from buffer A when a 1442 is used as 
the input device, or from buffers A and A 2 when a 
2501 is used. 



Paper Tape Input 

B: a 60-word buffer into which binary data from 
buffer BIGCB is compressed. 

C; a 1-word buffer used for the DEL character 
test when reading binary paper tape records. 

BIGCB: a 108-word buffer for binary paper tape 
records, 108 frames, left-justified. 



Disk Input and Output 

BUFFI : a 320-word buffer used in disk I/O opera- 
tions. 

FSLET : a 320-word buffer used for reading or 
writing a SLET sector. During a reload operation 
that requires expansion into the Cushion Area of the 
cartridge, a sector of SLET from FSLET is saved 
by writing it on the first sector of the CIB. The CIB 
is not cleared afterward. 

RTBFR: a buffer that is used to gather the data that 
will become the Reload Table. Its length is variable, 
up to 320 words. The word count (never over /0140) 
may be found in location RTBFR. 



SUBPHASES 



Subphase 1 

Subphase 1 contains the subroutines that are used 
only during an initial load. If an initial load is being 
performed, subphase 1 overlays a portion of phase 2 
that contains only reload subroutines. Phase 1 
determines from the Load Mode control record the 
type of load being performed, and either overlays 
the described area or bypasses the subphase 1 portion 
of the phase 2 deck. 



Most of the functions of this subphase involve the 
checking of the ID number of each phase as it is 
encountered. An error message (error 12, 14, or 
15) is displayed whenever a phase ID is encountered 
that is out of sequence or was not specified on the 
PHID control record. 



Subphase 2 

r 

Subphase 2 contains the procedures for system 
initialization prior to the loading of the System 
Library. After the type 81 (end -of -system) record 
has been read, phase 2 fetches this subphase and 
overlays the area in core storage bounded by 
EDIT+642 through EDIT+961. 

Subphase 2 modifies the coding for the processing 
of those types of records that are no longer expected, 
so that if one of these records is encountered, an 
error message is printed. 

Subphase 2 looks up DISKZ in SLET and saves the 
word count and sector address so that DISKZ may be 
fetched during processing in subphase 3. 

Subphase 2 reads DCOM into the buffer FSLET. 
During an initial load DCOM is cleared to zeros, 
after which the following entries are initialized: 

Location Value Inserted 

#SYSC version and modification level from 

PHID control record 

#RP67 a positive value if a 1442, Model 6 or 

7 is present, zero otherwise 

#PIOD the value indicating the principal I/O 

device, as determined from REQ control 
records (+=2501/1442, 0=1442/1442, 
-=1134/1055) 

#PPTR the value indicating the principal print 

device, as determined from REQ control 
records (+=1403, 0=1132, - =Console 
Printer) 

#CIAD relative location in sector @IDAD where 

CIL word count and sector address is 
maintained 

#ANDU file-protection disk block address 

#BNDU file -protection disk block address 

#FPAD file-protection or Working Storage 

sector address 
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#CIDN cartridge ID from word 4 of sector 

@IDAD 

#CIBA sector address of CIB 

#SCRA sector address of Supervisor Control 

Record Area 

#ULET sector address of LET 

#CSHN number of unused sectors between last 

system program and Supervisor Control 
Record Area. 



During a reload operation, only the following are 
updated: $CH12, $CORE, $IREQ, $CILA, and 
$IBT2, as described above. 

The first sector of LET is established and initial- 
ized with a 1DUMY entry, Working Storage disk block 
address, User Area sector address, and the number 
of unused words in the first sector of LET. All 
other words in LET are set to zero until the System 
Library is stored. 

Subphase 2, on an initial load, goes to the Reload 
Table processing subroutine, and upon return, 
fetches and transfers control to subphase 3„ 



During a reload operation, only the following are 
updated: #SYSC, #RP67, #PIOD, #PPTR, #CIAD, 
and #CSHN, as described above. 

Subphase 2 reads the Resident Image from disk in- 
to the buffer FSLET. During an initial load the 
Resident Image is initialized as follows: 

Locatio n Value Inserted 

$CH12 address of channel 12 indicator for 

the principal print device, as deter- 
mined from REQ control records, i. e. , 
$1403, $1132, or$CPTR 

$CORE core size (may be actual, or set by 

CORE control record) 

$DREQ a negative value (indicating DISKZ) 

$HASH and WO rd count (4095-$CIBA) and sector 
$HASH+1 address of CIB 

$IREQ address of DUMP entry point ($DUMP) 

$ULET sector address of LET for logical 

drive 

$CILA address in which the word count and 

sector address of Phase 1 and the Core 
Image Loader is to be phaced ( $ Z END-4) 



$DZIN a negative value (indicating DISKZ) 

$FPAD file-protection sector address for 

logical drive 

$DCYL table of defective cylinders (from 

sector @IDAD) 

$IBT2 address of level 2 interrupt branch 

table 



Subphase 3 

Subphase 3 clears the sign bits from all sector 
addresses in SLET and resets them according to the 
data obtained from the System Configuration records. 
(The sign bits are used to indicate which, if any, I/O 
devices are not present on the system. ) 

Subphase 3, on a reload operation, compares all 
entries in the Reload Table built in core storage with 
the Reload Table on disk. Phase ID numbers in the 
Reload Table on disk that match phase ID numbers in 
the Reload Table in core storage are replaced by 
those from the table in core storage. Any additional 
phase ID numbers from the table in core storage 
that are not present in the table on disk are added to 
the table on disk. At the conclusion of this update 
of the Reload Table on disk, it is completely re- 
processed by the W200 subroutine in phase 2. 

Subphase 3 places the word count and sector 
adress of phase 1 of the Core Image Loader, 
obtained from SLET , into DISKZ in core storage 
and into DISKZ on cylinder 0. If a reload opera- 
tion is being performed, subphase 3 displays 
"END RELOAD" and halts. 

On an initial load, subphase 3 branches to the 
Auxiliary Supervisor with a parameter of minus 5, 
causing a dummy DUP monitor control record to be 
placed in the Supervisor buffer and the Monitor 
Control Record Analyzer to be called via the EXIT 
entry point in the Skeleton Supervisor. The Monitor 
Control Record Analyzer then calls DUP to store 
the System Library. 



CORE LAYOUT 

Figure 1 shows the layout of the contents of core 
storage during System Loader operation. 
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Figure 1 . Core Layout During System Loader Operation 



CARTRIDGE IDENTIFICATION SECTOR 

On an initial load, the System Loader uses the con- 
tents of the cartridge ID sector (sector @IDAD) as 
follows: 

The first three words of the sector (the defective 
cylinder table for the cartridge, initialized by the 
DCIP program) are placed into its disk I/O subroutine 



prior to performing any disk operations, and into 
locations $DCYL through $DCYL+2 in the Resident 
Image. 

The fourth word of the sector (the cartridge 
identification word, initialized by the DCIP or DISC 
program) is placed into location #CIDN in DCOM. 



SYSTEM LOCATION EQUIVALENCE TABLE (SLET) 

SLET occupies two adjacent sectors on the system 
cartridge. Its functions are: 

• To provide a convenient means for locating each 
monitor system program that has been stored on 
the system cartridge. 

• To indicate which are the principal I/O devices 
for the system. 

• To indicate which devices, if any, are not present 
on the system. 

When the System Loader initially stores a phase 
of a monitor system program on the disk, it makes 
a 4-word entry in SLET for that program consisting 
of: 

1. The phase identification (phase ID) number. 

2. The core loading address of the phase. This is 
the address in which the word count is to be 
stored prior to fetching the phase from the disk. 

3. The word count of the phase, not including the 
two words occupied by the word count and sector 
address used in fetching the phase from disk. 

4. The sector address of the phase. 

During an initial load, the SLET sectors are 
cleared to zero. The 4-word entries describing 
each phase are built into the table, phase by phase, 
as the monitor system programs are loaded. When 
a program, such as the Assembler Program, is to 
be bypassed, the words in SLET that it would nor- 
mally need (the number of phases in the program 
times 4) are left at zero and are bypassed. The 
SLET entry for the next program phase that is loaded 
follows this gap. (A program or phase not included 
during an initial load cannot later be included in a 
reload operation; a new initial load must be per- 
formed. ) 

All phase ID numbers in SLET are in ascending 
order. No duplications exist. The only jumps in 
sequence are between programs, not between phases 
within a program. 
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The five 4-word entries describing the principal 
I/O devices and the corresponding conversion sub- 
routines are built by the System Loader and do not 
come directly from program decks. These special 
entries, as well as all I/O phases, are located on 
the second of the two SLET sectors. 

The contents of SLET can be obtained at any time 
by an execution of the DSLET program (see the 
description of DSLET under Mainline Programs 
in Section 12. System Library) . 



RELOAD TABLE 

The Reload Table occupies one sector on the system 
cartridge. It contains a 3-word entry for each phase 
that requests SLET information. Word 1 of each 
entry contains the phase ID number of the requesting 
phase. Word 2 of each entry contains the number of 
the location, relative to the beginning of the phase, 
where the SLET entries are to be inserted into the 



requesting phase. Word 3 of each entry contains the 
number of 4-word SLET entries to be inserted into 
the requesting phase. The phase ID number of the 
requesting phase itself is in 2's complement form 
to indicate to the System Loader that SLET data is 
requested by that phase. 

When completed at the end of an initial load or 
reload operation, the Reload Table consists of a 
string of 3-word entries, as described above, except 
that the phase ID numbers have been recomplemented 
by the System Loader. At the end of the string is 
/FFFF. It may be at an odd or an even address, 
depending upon the length of the string. At the end 
of an initial load, the phase ID numbers are in 
ascending order. After one or more reload opera- 
tions the phase ID numbers may or may not be in 
ascending order. 

When a DEFINE VOID ASSEMBLER or DEFINE 
VOID FORTRAN operation is performed by DUP, 
all phase ID numbers belonging to the voided pro- 
grants) are removed from the Reload Table. The 
remaining 3 -word entries in the Reload Table are 
packed together and terminated with /FFFF. 
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SECTION 4. COLD START PROGRAMS 



FLOWCHARTS 

Cold Start Loader: CST01 
Cold Start Program: CST02 



COLD START LOADER 

The Cold Start Loader is the one-card bootstrap used 
to initiate the operation of the Cold Start Program, 
which in turn initiates the operation of the monitor 
system. 

Since it is loaded by the IPL procedure, all 
instructions in the Cold Start Loader are in IPL 
format. Hence, the program must construct all 
IOCCs as well as any long instructions required 
by it. 

The first word set up after entering the program 
is the second word of the IOCC for reading the Con- 
sole Entry switches. After this is done, the number 
of the physical drive to be assigned as logical drive 
is obtained from the Console Entry switches. The 
program then checks to see if the number obtained 
is valid (0-4, inclusive). If it is not, the program 
comes to a WAIT from which the user may restart 
by entering a valid number and pressing the START 
key. Once a valid number has been obtained, the 
device code for the drive specified is constructed 
and saved (for use by the Cold Start Program as well 
as the Cold Start Loader). 

After setting up the second word of the IOCC for 
sensing the disk (with reset), the program senses the 
disk. All bits except the not-ready bit (bit 2) are 
masked out. If the drive is not ready, the program 
comes to the same WAIT mentioned above. 

Four long instructions are built, and the final 
steps in the setting up of the IOCC for seeking are 
performed. The word count of the Cold Start Pro- 
gram plus the word count of DISKZ plus 27 is stored 
in DZ000-29, the 27 being the number of words 
reserved in sector @IDAD for parameters,, 

After setting up the second word of the IOCC 
for reading the disk, the program initiates a 
seek toward the home position, one cylinder at a 
time. When the seek is complete, sector zero on 
the cylinder currently under the read/write heads 
is read from the disk. If no disk error occurs 



during this read and if the sector address is that of 
sector @IDAD, then a branch is made to $ZEND, 
which is the address of the first word of the Cold 
Start Program. 

If the sector address is not that of the Cold Start 
Program, another seek toward the home position is 
initiated. This seek-and-read process is repeated 
until the proper sector address is found. (There- 
fore, a cartridge with invalid sector addresses causes 
the program to function improperly. ) Any disk 
error results in the program coming to a WAIT with 
a /3028 in the storage address register. 



COLD START PROGRAM 

The Cold Start Program is fetched from the disk 
and given control by the Cold Start Loader. 
Using the same device code that was set up by 
the Cold Start Loader for the physical drive as- 
signed as logical drive 0, the Cold Start Program 
reads the Resident Image into its normal location in 
core storage. Once this operation is performed, 
location zero is initialized with an MDX to $DUMP+1 
and the Auxiliary Supervisor is entered with a 
parameter of minus 1, causing it to place a dummy 
JOB monitor control record into the Supervisor 
buffer and execute a CALL EXIT. 



CORE LAYOUT 

Figure 2, panel 1, shows the layout of the contents 
of core storage after the Cold Start Loader has been 
loaded and, in turn, has fetched sector @IDAD from 
logical drive into core storage. This sector is 
read into core such that the DISKZ subroutine 
resides at DZ000, followed by the Cold Start Pro- 
gram. 

Figure 2, panel 2, shows the layout of the contents 
of core storage after the Cold Start Program has 
fetched the Resident Image from sector @RIAD 
from logical drive into core storage. The 
Resident Image, like DISKZ, is fetched in such a 
fashion that all locations occupy their permanent 
positions in core storage. 
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Figure 2. Core Layout During Cold Start 
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SECTION 5. RESIDENT MONITOR 



FLOWCHARTS 



ERROR TRAPS 



CALL LINK, CALL EXIT, CALL DUMP Processor: 
SUP01 

The Resident Monitor consists of COMMA, the 
Skeleton Supervisor, and a disk I/O subroutine. 



COMMA 

For a description of COMMA and its contents, see 
Section 2. Communications Areas. 



There are six error traps in the Skeleton Super- 
visor: the preoperative error trap, the PROGRAM 
STOP key trap, and one postoperative error trap 
each for interrupt levels 1, 2, 3, and 4. 

Each error trap except for the PROGRAM STOP 
key trap consists of a link word, a WAIT instruc- 
tion, and a BSC indirect to the link word. The 
PROGRAM STOP key trap employs a BOSC indirect 
instead of a BSC indirect. 



SKELETON SUPERVISOR 

The Skeleton Supervisor is composed of: the CALL 
LINK, CALL DUMP, CALL EXIT processor; error 
traps for interrupt levels 1, 2, 3, and 4, the PRO- 
GRAM STOP key, and preoperative errors; and the 
ILSs for interrupt levels 2 and 4. 



ILSs 

The Skeleton Supervisor contains the ILSs for 
interrupt level 2 (ILS02) and interrupt level 4 (ILS04). 
These are used in all cases by all monitor system 
programs and by user programs in lieu of user- 
written ILS02 and/or ILS04 subroutines. 



CALL LINK, CALL DUMP, CALL EXIT PROCESSOR 

This portion of the Skeleton Supervisor indicates the 
type of entry made to it — LINK, DUMP, or EXIT — 
then fetches and transfers control to phase 1 of the 
Core Image Loader, 

On any entry at $DUMP locations $CIBA+1 through 
4095 are saved on the Core Image Buffer before they 
are overlaid by the monitor system programs re- 
quired for the core dump. 

On all entries to the Skeleton Supervisor, the 
two words following the branch instruction are saved 
to prevent their being overlaid and lost. They are 
needed only if the entry was at $LINK, at which time 
these two words contain the name of the link to be 
executed next. 



DISK I/O SUBROUTINE 

The Resident Monitor contains one of the three disk 
I/O subroutines at all times. The disk I/O sub- 
routine in the Resident Monitor is the disk I/O sub- 
routine currently in use. 

For a description of the DISKZ subroutine, see 
Section 13. System Device Subroutines. A listing 
of the DISKZ subroutine is contained in Appendix B„ 
Listings. 

For descriptions of the DISK1 and DISKN sub- 
routines, see Section 12. System Library. 



Section 5. Resident Monitor 17 



SECTION 6. SUPERVISOR 



FLOWCHARTS 

Monitor Control Record Analyzer: SUP02 - SUP05 
Supervisor Control Record Analyzer: SUP06-SUP08 
Auxiliary Supervisor: SUP10 
System Core Dump Program: SUP09 



MONITOR CONTROL RECORD ANALYZER - 
PHASE 1 

The Monitor Control Record Analyzer is the program 
that decodes monitor control records and takes the 
specified action. 

The Monitor Control Record Analyzer is entered 
via the EXIT entry point in the Skeleton Supervisor. 
This entry causes phase 1 of the Core Image Loader 
to fetch the Monitor Control Record Analyzer and 
transfer control to it. 

The Monitor Control Record Analyzer utilizes the 
system I/O device subroutines. Three of these sub- 
routines (an input, an output, and the appropriate 
conversion subroutine) are fetched into core storage 
by the Monitor Control Record Analyzer itself, 
using SLET information provided by the System 
Loader. 

The Monitor Control Record Analyzer reads 
monitor control records from the principal input 
device into the Supervisor buffer, which occupies 
locations @SBFR through @SBFR+79 and contains a 
monitor control record in unpacked, right-justified 
EBCDIC format. 

The principal conversion subroutine checks for 
monitor control records. If the principal conversion 
subroutine detects a monitor control record during 
the execution of a monitor system program other 
than the Monitor Control Record Analyzer, $CTSW 
in COMMA is set to a positive non-zero value, the 
monitor control record is converted to unpacked, 
right-justified EBCDIC format, and the record is 
passed to the Monitor Control Record Analyzer in 
the locations assigned as the Supervisor buffer. 



JOB CONTROL RECORD PROCESSING 

Upon detecting a JOB control record, the Monitor 
Control Record Analyzer initializes the SLET in- 
formation for the principal input device, COMMA, 
DCOM, and LET. 

The entire heading sector (sector @HDNG) is 
cleared, "PAGEbbbl" is stored in words 0-3, and 
the contents of columns 51-58 of the JOB control 
record are stored in words 6-9. 

The SLET information for the device (other than 
the Keyboard) normally assigned as the principal 
input device replaces the SLET information for the 
current principal input device and its conversion 
subroutine. 

The following parameters in COMMA are 
initialized to zero: 



$COMN, 


$LAST, 


$PST1, 


$CTSW, 


$LINK, 


$PST2, 


$DADR, 


$NDUP, 


$PST3, 


$DUMP, 


$NXEQ, 


$PST4, 


$IBSY, 


$PBSY, 


$SNLT, 


$IOCT, 


$PRET, 


$STOP, 
$WRD1 



In addition, $PGCT and $UFIO are set to one, and 
the address of $DUMP is stored in $IREQ. 

The cartridge IDs specified on the JOB control 
record are unpacked to one EBCDIC character per 
word, converted to binary, and stored in a five- 
word ID table to be used by the System Update 
program to update the cartridge-dependent tables 
in COMMA and DCOM (see System Update, below). 

$CIBA in COMMA is set by comparing the ID of 
the cartridge on which the CIB for the current job 
is to be found, as specified on the JOB control 
record, to the list of specified IDs and selecting the 
entry in #CIBA that corresponds to the matching ID. 
Similarly, $WSDR is set equivalent to the logical 
drive number of the ID that matches the Working 
Storage cartridge ID, and $UFDR is set equivalent 
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to the drive number that matches the unformatted 
I/O cartridge ID. 

The address of the adjusted end of the User Area 
(#ANDU) is compared to the address of the base end 
of the User Area (#BNDU) for each cartridge. If 
the two items are unequal for any cartridge, the 
temporary items in LET on that cartridge are 
deleted. A sector of LET is read and the disk block 
counts are accumulated until the sum is equivalent 
to #BNDU. The sector address of that sector and 
any following LET sectors are stored in a table 
(JB936) until a continuation of the disk block 
accumulation equals #ANDU. The next entry consists 
of a dummy name (IDUMY) and the size of Working 
Storage. The size of Working Storage is saved 
(JB934) and the entry is cleared. The preceding 
disk block counts are added one at a time to JB934, 
subtracted from #ANDU, and deleted until #ANDU 
equals #BNDU. If an entire sector is deleted before 
#ANDU equals #BNDU, it is necessary to fetch the 
sector address of the preceding LET sector from 
the table JB936 and read in that sector so the 
deletion process may be continued. When all the 
temporary entries have been deleted (#ANDU equals 
#BNDU) IDUMY is stored as the name, and the disk 
block count of the last entry is stored as the size of 
Working Storage. 

The following parameters in DCOM are set to 
zero: 



#CBSW, 


#FRDR, 


#MPSW, 


#DBCT, 


#FRMT, 


#NAME , 


#DCSW, 


#FSZE, 


#NCNT, 


#ENTY, 


#LCNT, 


#TODR, 


#FCNT, 


#MDF1, 


#UHOL, 


#FHOL, 


#MDF2, 


#USZE, 
#WSCT 



#JBSW is set to zero unless a 'T' appears in 
column 8 of the JOB control record, in which case 
#JBSW is set to a positive, non-zero value. 



The specified cartridge IDs are communicated to 
the System Update program in logical order and in 
tabular form from core storage or from disk. This 
table is referred to as ID LIST. 

A table of available cartridge IDs in physical 
order is formed by the System Update program by 
executing a command to read one word from each 
drive successively. If the drive is available and 
ready, the DSW, when immediately tested, shows 
a busy condition. DISKZ is then called to fetch the 
cartridge ID and defective cylinder addresses from 
sector @IDAD and the ID is stored in CART LIST. 
If a drive is not available or not ready, the 
appropriate position of CART LIST is set to zero. 

CART LIST is searched for each ID in ID LIST. 
When matching IDs are found, DCOM is fetched from 
the physical drive represented by the matching BD 
from CART LIST. The ID being processed is 
located in the #CIDN parameter in the DCOM just 
fetched. The entries from the drive- and cartridge- 
dependent parameters in DCOM in the position where 
the ID is found are moved to the corresponding drive- 
and cartridge-dependent parameters in the master 
DCOM in the position specified by the logical drive 
assignment for that ID. The entries for unspecified 
cartridges are set to zero. 

At the same time, the device code ($ACDE) and 
defective cylinder addresses ($DCYL) in COMMA 
are set. $ACDE is the only link between the logical 
and physical definition of a drive. The position of 
an entry in the $ACDE parameter defines the logical 
drive, and the device code defines the physical drive. 
The defective cylinder addresses are those fetched 
from words 0-2 of sector @IDAD of the cartridge. 
These addresses and cartridge IDs were set by the 
DCIP program. $FPAD and $ULET in COMMA are 
updated from the newly updated DCOM on the 
master cartridge. 



OTHER CONTROL RECORD PROCESSING 



SYSTEM UPDATE PROGRAM 

The purpose of the System Update program is to 
update the drive- and cartridge -dependent tables of 
the system cartridge DCOM to reflect the logical 
definition and contents of the cartridge in use during 
the current job, as specified by the JOB control 
record. 



Upon detecting an XEQ monitor control record, the 
Monitor Control Record Analyzer tests $NXEQ, the 
non-execute switch, in COMMA. If $NXEQ is zero, 
the Monitor Control Record Analyzer fetches and 
transfers control to the XEQ Control Record 
Processor (see below). Otherwise, the Monitor 
Control Record Analyzer prints an error message 
and reads the next control record for processing. 
Upon detecting an ASM or FOR monitor control 
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record the Monitor Control Record Analyzer fetches 
the first phase of the specified program using SLET 
information provided by the System Loader, and 
transfers control to it. 

Upon detecting a DUP monitor control record, 
the Monitor Control Record Analyzer tests $NDUP, 
the non-DUP switch, in COMMA. If $NDUP is zero, 
the Monitor Control Record Analyzer fetches and 
transfers control to the first phase of DUP. Other- 
wise, an error message is printed and the next 
control record is read for processing. 

Upon detecting a PAUS monitor control record, 
the Monitor Control Record Analyzer comes to a 
WAIT at $PRET. When the PROGRAM START key 
is pressed, the Monitor Control Record Analyzer 
reads and processes the next control record. 

Upon detecting a TYP monitor control record, 
the Monitor Control Record Analyzer replaces the 
SLET information used to fetch the principal input 
device subroutine and its associated conversion 
subroutine with the SLET information for the Key- 
board input subroutine and its associated conversion 
subroutine. These subroutines are then fetched and 
used for the reading and converting of subsequent 
input records from the Keyboard. 

Upon detecting a TEND monitor control record, 
the Monitor Control Record Analyzer replaces the 
SLET information used to fetch the principal input 
device (the Keyboard) subroutine and its associated 
conversion subroutine with the SLET information 
for the device subroutine and conversion subroutine 
used with the device normally assigned as the 
principal input device, i. e. , not the Keyboard. 
These subroutines are then fetched and used for the 
reading and converting of subsequent input records. 

Upon detecting a CPRNT monitor control record, 
the Monitor Control Record Analyzer replaces the 
SLET information used to fetch the principal print 
device subroutine with the SLET information for the 
Console Printer output subroutine. (This replace- 
ment is permanent and can be changed only by 
System Loader with a reload function.) This sub- 
routine is then fetched and used for the printing 
of subsequent output records on the Console 
Printer. 



Upon detecting an EJECT monitor control record, 
the Monitor Control Record Analyzer ejects the page 
on the principal print device, prints the current 
page heading, and reads and processes the next 
monitor control record. 



XEQ CONTROL RECORD PROCESSOR - PHASE 2 

The XEQ Control Record Processor processes the 
XEQ monitor control record and the Supervisor 
control records - LOCAL, NOCAL, and FILES. 



XEQ CONTROL RECORD PROCESSING 

The presence of Supervisor control records follow- 
ing the XEQ control record is indicated by the con- 
tents of columns 16 and 17. If the number in these 
columns is not zero or blank, the Supervisor 
Control Record Analyzer, the subroutine that 
processes LOCAL, NOCAL, and FILES control 
records, is called. 

#MPSW in DCOM is set non-zero if an 'L T appears 
in column 14; otherwise, #MPSW is set to zero. 

$DREQ in COMMA is set according to the disk 
I/O subroutine indicated in column 19. If column 19 
is blank, $DREQ is set to indicate DISKZ. 

If a name appears in columns 8 through 12 of the 
XEQ control record, the name is converted to name 
code and phase 1 of the Core Image Loader is 
called via the $LINK entry point in the Skeleton 
Supervisor. (The 2- word name of the program 
to be linked to follows the branch to $LINK. ) 

If no name appears in the XEQ control record, 
phase 0/1 of the Core Load Builder is fetched into 
core storage and control is transferred to phase 0. 
The cartridge ID in columns 21-24 is located in 
#CIDN to determine the drive on which the program 
is to be found. This drive number is stored in 
$DCDE in COMMA. 
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SUPERVISOR CONTROL RECORD PROCESSING 



LOCAL/NOCAL Control Record Processing 

The mainline program name(s) and subroutine 
name(s) found on the LOCAL/NOCAL control 
records are converted to name code and stored on 
the Supervisor Control Record Area (SCRA). If 
a mainline program name is not specified, two words 
of blanks replace it in the SCRA. 

LOCAL control record information is stored in 
sectors and 1 of the SCRA. NOCAL control record 
information is stored in sectors 2 and 3. 



FILES Control Record Processing 

Each file number is converted to binary and stored 
in the SCRA. Following each file number in the 
SCRA is the file name in name code. If no name was 
specified, two words of zeros replace the name. 
Following each file name in the SCRA is the cartridge 
ID converted to binary. If no cartridge HD was 
specified for a file, one word of zeros replaces the 
cartridge ID. Both the file name and cartridge ID 
may not be unspecified. 

FILES control record information is stored in 
sectors 4 and 5 of the SCRA. 



SUPERVISOR CONTROL RECORD AREA (SCRA) 

Sectors and 1 of the SCRA are occupied by the 
LOCAL information for the core load or execution 
currently in progress (see diagram, below). The 
first word of sector contains the word count of the 
information stored in the two LOCAL sectors. 

Sectors 2 and 3 of the SCRA are occupied by the 
NOCAL information for the core load or execution 
currently in progress (see diagram, below). The 
first word of sector 2 contains the word count of 
the information stored in the two NOCAL sectors. 

Sectors 4 and 5 of the SCRA are occupied by the 
FILES information for the core load or execution 
currently in progress (see diagram, below). The 
first word of sector 4 contains the word count of the 
information stored in the two FILES sectors. 

Sectors 6 and 7 of the SCRA are reserved. 

The format of information in the LOCAL/NOCAL 
sectors is as follows: 



Word Count, one word specifying the number of words 
occupied by LOCAL/NOCAL information 
inclusive from A to B. 
Mainline name, two words in name code format (blanks 
if no mainline name is specified) 
Subroutine Name, two words in name code for- 
mat specifying a LOCAL/ 
NOCAL subroutine assoc- 
iated with the preceding 
mainline 
Subroutine Name 

Subroutine Name 



I W< 



Mainline 
Word Count, from B to the next Name 



word count. 
Mainline and Subroutine Names 



Sector 1 



Subroutine Name 

Word Count (sign bit is set to indicate that this is the 
last word count) 
Mainline Name 

Subroutine Name 

Subroutine Name 



Not Used 
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The format of information in the FILES sectors 
is as follows: 



Word Count, one word specifying the number of word;; in the two 

FILES sectors occupied by FILES information, including the 
word count . 
File Number, one word specifying in binary the number 
assigned to the file in a FORTRAN DEFINE FILE 
statement and by which the file is referenced 
File Name, two words in name code format specifying the 
name of the file as it appears in LET/FLET (zeros 
if no file name is specified) . 
Cartridge ID, one word specifying in binary the ID 
of the cartridge containing the preceding 
named file (zero if no cartridge ID is 
specified) . 
File Number 
File Name 

Cartridge ID 



" T T t T T t 



File Number 



File Numbers and Names 
and Cartridge IDs 



>/^> 



Sector I 
1 I 



File Name 



.Cartridge ID 



Not Used 
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2 I I I L 



■ss- 



22 



SYSTEM CORE DUMP PROGRAM - PHASE 3 

If an entry was made to the Skeleton Supervisor at 
$DUMP, the Skeleton Supervisor writes the contents 
of location $CIBA+1 through 4095 on the CIB, then 
fetches and transfers control to phase 1 of the Core 
Image Loader. If $DMPF (the dump format indica- 
tor) is zero or positive, the Core Image Loader 
fetches into core storage and transfers control to 
the System Core Dump program. 

The Dump program requires the principal print 
device subroutine. This subroutine is fetched into 
core storage by the Dump program itself utilizing 
SLET information provided by the System Loader. 

If dump limits are specified, these checks are 
made: 

• If both limits are zero, the lower limit is left 
zero and the upper limit is set to core size. 

• If a limit is larger than core size, the limit is 
subtracted from the core size and the difference 
is used as the limit. 

• If the lower limit is greater than the upper limit, 
a wrap-around dump is given. That is, core 
storage between the lower limit and the end of 
core storage is dumped, then core storage 
between location and the upper limit is dumped. 

The lower dump limit is checked to determine 
which, if any, sections of the CIB must be read into 
the dump buffer. If any or all of the contents of the 
CIB are to be dumped, the CIB is read into core 
storage in sections; sectors 0-3 constituting section 
1, sectors 4-7 constituting section 2, and sectors 
8-12 constituting section 3. Since the first six words 
of core storage were not stored to the CIB, the 
contents of the dump buffer are offset by six words. 
These six words are filled in from words 0-5 in the 
case of section 1 and are saved from the end of the 
previous section in the cases of sections 2 and 3. 
Locations greater than 4095 were not stored to the 
CIB and are dumped from their original locations. 

If $DUMP contains no return address (i. e. , is 
zero) , the Dump program executes a CALL EXIT. 

If $DUMP contains a return address (i. e. is 
non-zero) , the Dump program restores the con- 
tents of core storage in three stages. First, the 
locations between $CIBA+1 and the beginning of the 
disk I/O subroutine are restored from the CIB. 



Second, the locations between the beginning of the 
disk I/O subroutine and the beginning of the principal 
print device subroutine are restored. Third, the 
locations between the beginning of the principal print 
device subroutine and location 4095 are restored 
from the CIB. Control is then returned to the res- 
tored core load at the location following the dump 
parameters. 

AUXILIARY SUPERVISOR - PHASE 4 

If an entry was made to the Skeleton Supervisor at 
$DUMP and $DMPF (the dump format indicator) 
is negative, phase 1 of the Core Image Loader 
fetches into core storage and transfers control to 
the Auxiliary Supervisor. 

The Auxiliary Supervisor has these functions: 

• It writes dummy monitor control records in 
the Supervisor buffer for processing by the 
Monitor Control Record Analyzer. 

• It prints error messages for errors detected by 
the Core Image Loader. 

• It aborts a JOB. 

The Cold Start Program calls the Auxiliary 
Supervisor with a parameter of minus one (-1). This 
parameter causes the Auxiliary Supervisor to place 
a dummy JOB monitor control record in the Super- 
visor buffer, convert from binary to EBCDIC the 
cartridge ID of the cartridge from which the cold 
start was made and store it in the Supervisor 
Buffer, set $CTSW non-zero, and executes a CALL 
EXIT. 

The ILS04 subroutine calls the Auxiliary Super- 
visor with a parameter of minus two (-2) if an 
interrupt occurs from the Keyboard INTERRUPT 
REQUEST key and the user has not provided a servic- 
ing subroutine for that interrupt. This parameter 
causes the Auxiliary Supervisor to set $IOCT, $IBSY 
and $PBSY in COMMA to zero, set $FLSH in 
COMMA non-zero, and execute a CALL EXIT. 1 

Phase 1 of the Core Image Loader calls the 
Auxiliary Supervisor with a parameter of minus 
three (-3) or minus four (-4). If a program name 
cannot be found in LET/FLET, the parameter used 
is minus three. If a name specified as the pro- 
gram or core load for execution is found to be a 
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data file in LET/FLET, the parameter used is 
minus four. In either case, the Auxiliary Super- 
visor prints an error message, sets $NXEQ in 
COMMA non-zero, and executes a CALL EXIT. 

The System Load er calls the Auxiliary Supervisor 
with a parameter of minus five (-5). This parameter 
causes the Auxiliary Supervisor to place a dummy 
DUP monitor control record in the Supervisor buffer 
and executes a CALL EXIT. 

A negative parameter other than minus 1 through 
minus 5 causes the Auxiliary Supervisor to print an 
appropriate error message and execute a CALL 
EXIT. 



CORE LAYOUT 

Figure 3, panel 1 shows the layout of the contents 
of core storage at the time the Skeleton Supervisor 
is entered at $LINK, $EXIT, or $DUMP. 

Figure 3, panel 2 shows the layout of the contents 
of core storage after phase 1 of the Core Image 
Loader has been fetched into core storage by the 
Skeleton Supervisor. If the Skeleton Supervisor was 
entered at $DUMP, the contents of locations 
$CIBA+1 through 4095 are saved on the CIB prior 
to the fetching of the Core Image Loader. 

Figure 3, panel 3 shows the layout of the con- 
tents of core storage after phase 1 of the Core Image 
Loader, using whichever disk I/O subroutine is in 
the Resident Monitor, has fetched phase 2 of the Core 
Image Loader into core storage. 

Figure 3, panel 4 shows the layout of the con- 
tents of core storage after the Core Image Loader, 
as the result of an entry to the Skeleton Supervisor 
at $EXIT, has fetched the DISKZ disk I/O sub- 



routine into the Resident Monitor for use by the 
Monitor Control Record Analyzer and has fetched 
into core storage and transferred control to the 
Monitor Control Record Analyzer. The principal 
print device and principal input device subroutines 
have been fetched into core storage by the Monitor 
Control Record Analyzer. The areas for disk I/O 
and control record buffers have been allocated by 
the Monitor Control Record Analyzer. If a monitor 
control record had been detected by a monitor 
system program other than the Monitor Control 
Record Analyzer, the record would have been passed 
to the Monitor Control Record Analyzer in that area 
to be allocated by the Monitor Control Record 
Analyzer as the Supervisor buffer. 

Figure 3, panel 5 shows the layout of the con- 
tents of core storage after the Monitor Control 
Record Analyzer has fetched the XEQ Control Record 
Processor into core storage,, 

Figure 3 , panel 6 shows the layout of the con- 
tents of core storage after the Core Image Loader, 
as the result of an entry to the Skeleton Supervisor 
at $DUMPwith a non -negative parameter, has 
fetched into core storage and transferred control 
to the System Core Dump program. The Dump 
program, using whichever disk I/O subroutine 
is in the Resident Monitor, has fetched the principal 
print device subroutine into core storage. The 
areas for disk I/O and print buffers have been 
allocated by the Dump program. 

Figure 3, panel 7 shows the layout of the con- 
tents of core storage after the Core Image Loader, 
as the result of an entry to the Skeleton Supervisor 
at $DUMP with a negative parameter, has fetched 
the DISKZ disk I/O subroutine into core storage 
and has fetched and transferred control to the 
Auxiliary Supervisor. The Auxiliary Supervisor 
has fetched the principal print device subroutine 
into core storage. 
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Figure 3 . Core Layout During Supervisor Operation 
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SECTION 7. CORE IMAGE LOADER 



FLOWCHARTS 
Phase 1: CIL01 
Phase 2: CIL02 

PHASE 1 

Phase 1 of the Core Image Loader handles the three 
entries to the Skeleton Supervisor - LINK, DUMP, 
and EXITo The Core Image Loader is assigned this 
task in order to minimize transfer time (via CALL 
LINK) from one link to another,, 

Phase 1 of the Core Image Loader is naturally 
relocatable. It is read into core storage by the 
Skeleton Supervisor immediately following whichever 
disk I/O subroutine is currently in the Resident 
Monitor. (This can be done by the Skeleton Super- 
visor with minimal core requirement because the 
word count and sector address of this phase per- 
manently reside at the end of each disk I/O sub- 
routine. ) 

If the Skeleton Supervisor was entered at 
$DUMP ($RMSW is positive), phase 1 tests 
$DUMPF, the dump format code indicator. If 
$DMPF is negative, phase 1 fetches and transfers 
control to the Auxiliary Supervisor. If $DMPF is 
not negative, phase 1 fetches and transfers control 
to the System Core Dump program. 

If the Skeleton Supervisor was entered at $ EXIT 
($RMSW is negative), phase 1 tests $DZIN to deter- 
mine whether DISKZ is in the Resident Monitor. If 
DISKZ is in the Resident Monitor, phase 1 fetches 
and transfers control to the Monitor Control Record 
Analyzer. If DISKZ is not in the Resident Monitor, 
phase 1 fetches phase 2 of the Core Image Loader. 
Using phase 2 as a subroutine, phase 1 overlays 
D1SK1 or DISKN with DISKZ. Phase 1 then fetches 
and transfers control to the Monitor Control Record 
Analyzer. 

If the Skeleton Supervisor was entered at $LINK 
($RMSW is zero) , phase 1 tests $COMN in COMMA 
to determine if COMMON was defined by the core 
load just terminated. If $COMN is non-zero, phase 
1 saves Low COMMON on the CIB. (Low COMMON 
is the lowest 320 words that could have been de- 
fined as COMMON by the core load just terminated. ) 
Depending on the disk I/O subroutine currently in 
the Resident Monitor, Low COMMON is defined as 
follows: 



Disk I/O Subroutine 

DISKZ 
DISK1 
DISKN 



Low COMMON 
Decimal Hexadecimal 

896 - 1215 /0380 - /04BF 
1216 - 1535 /04C0 - /05FF 
1536-1855 /0600-/073F 



The area occupied by Low COMMON is used by 
phase 1 as a disk I/O buffer during the LET/FLET 
search and/or as the area into which phase 2 is 
fetched when phase 2 is to be used to fetch DISKZ „ 

Once Low COMMON has been saved, or if no 
COMMON was defined by the core load just ter- 
minated, phase 1 searches LET/FLET for the name 
of the program or core load to be executed next,, 
The name of the link has been saved in $LKNM by the 
Skeleton Supervisor. 

If the link is in disk system format (DSF), phase 
1 saves any COMMON defined below 4096 on the 
CIB. It then fetches phase 2, uses phase 2 as a 
subroutine to overlay DISK1 or DISKN with DISKZ, 
fetches phase 0/1 of the Core Load Builder, and 
transfers control to phase 1 of the Core Load 
Builder. 

If the link is in disk core image format (DCI), 
phase 1 fetches and transfers control to phase 2 to 
fetch the link and the required disk I/O subroutine, 
if necessary, and to transfer control to that link,, 

Special Techniques. Phase 1 of the Core Image 
Loader places a disk call subroutine in COMMA at 
$HASH+8 through $HASH+19. Using this disk call 
subroutine , phase 1 is able to overlay itself when 
fetching phase 2, the Monitor Control Record 
Analyzer, etc. 



PHASE 2 

Phase 2 of the Core Image Loader is naturally 
relocatable. It is read into core storage (by phase 
1) immediately following the end of phase 1 if it is 
to be used by phase 1 to fetch DISKZ , or (by either 
phase 1 or the Core Load Builder) following the end 
of the disk I/O subroutine currently in the Resident 
Monitor if it is to fetch and transfer control Jto a 
core load. Phase 2 provides two functions: (1) 
to overlay the disk I/O subroutine currently in the 
Resident Monitor with the requested disk I/O sub- 
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routine and (2) to fetch a core load. It may be used 
for either or both of these functions on any single 
entry. 

If called to fetch and transfer control to a core 
load, phase 2 first fetches and processes the core 
image header and then the disk I/O subroutine 
required by the core load to be fetched if it is not 
currently present in the Resident Monitor. The last 
thing it does is to fetch and transfer control to the 
core load itself. 

Special Techniques. Upon entry, phase 2 requires 
the disk call subroutine placed at $HASH+8 through 
$HASH+19. Using this disk call subroutine, phase 
2 is able to overlay itself when fetching a core 
load. Included in this subroutine, at $HASH+13 
through $HASH+19, is the coding that moves the 
transfer vector from its position at the end of the 
core load (as it exists on disk) to the end of 
COMMON in core storage. Once the transfer 
vector has been moved, control passes to the core 
load being fetched. 



CORE LAYOUT 

Figure 4 shows the layout of the contents of core 
storage following an entry to the Skeleton Supervisor 
at $EXIT when DISKZ is present in the Resident 
Monitor,^ In panel 1, phase 1 of the Core Image 
Loader has been fetched by the Skeleton Supervisor. 
In panel 2, the Monitor Control Record Analyzer has 
been fetched by phase 1. 

Figure 5 shows the layout of the contents of core 
storage following an entry to the Skeleton Supervisor 
at $EXIT when DISKZ is not present in the Resident 
Monitor. In panel 1, phase 1 of the Core Image 
Loader has been fetched by the Skeleton Supervisor. 
In panel 2, phase 2 of the Core Image Loader has 
been fetched by phase 1. ' In panel 3, DISKZ has been 
fetched by phase 2. In panel 4, the Monitor Control 
Record Analyzer has been fetched by phase 1. 

Figure 6 shows the layout of the contents of core 
storage following an entry to the Skeleton Supervisor 
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Figure 4. Core Layout on Supervisor Entry at $EXIT (DISKZ Br Core)'- 



at $DUMP. In panel 1, locations $CIBA+1 through 
4095 have been saved on the CIB and phase 1 of the 
Core Image Loader has been fetched by the Skeleton 
Supervisor. In panel 2, the System Core Dump 
program has been fetched by phase 1 as the result 
of a non-negative parameter following the branch to 
$DUMP. In panel 3 , the Auxiliary Supervisor has 
been fetched by phase 1 as the result of a negative 
parameter following the branch to $DUMP. 



28 



© 


® 


© 


© 


COMMA, 
Skeleton 
Supervisor 


COMMA, 

Skeleton 

Supervisor 


COMMA, 
Skeleton 
Supervisor 


COMMA, 
Skeleton 
Supervisor 


DISK1 

or 
DISKN 


DISK1 

or 
DISKN 


DISKZ 


DISKZ 


'//////A 


"^^ 


Core Image 
Loader, 
Phase 1 


Core Image 
Loader, 
Phase 1 


Core Image 
Loader, 
Phase 1 


MCRA 


%^/A 


Core Image 
Loader, 
Phase 2 


Core Image 
Loader, 
Phase 2 


JOB Processor, 
System Update 


1 


HP 





© 


© 


© 


COMMA, 


COMMA, 


COMMA, 


Skeleton 


Skeleton 


Skeleton 


Supervisor 


Supervisor 


Supervisor 


Any 
Disk I/O 
Subroutine 


Any 
Disk I/O 
Subroutine 


Any 
Disk I/O 
Subroutine 


Core Image 
Loader, 
Phase 1 


W/A 


Auxiliary 
Supervisor 


Dump 
Program 


©^%^ 


111 


111 


iH 


flfl 


|§f| 


That 


That 




Portion 


Portion 




of 


of 




Core Load 


Core Load 




Above 


Above 




4096, 


4096, 




Not 


Not 




Saved On 


Saved On 




CIB 


CIB 





Figure 6. Core Layout on Supervisor Entry at $DUMP 



Figure 5. Core Layout on Supervisor Entry at $EXIT (DISKZ Not in 
Core) 



Figure 7 shows the layout of the contents of core 
storage following an entry to the Skeleton Supervisor 
at $LINK when the program being linked to is in disk 
system format (DSF). In this case DISK1 or DISKN 
is currently present in the Resident Monitor. In 
panel 1, phase 1 of the Core Image Loader has been 
fetched by the Skeleton Supervisor, Low COMMON 
has been saved by phase 1, and the LET/FLET 
search buffer has been allocated. In panel 2, 
COMMON defined by the previous core load below 
location 4096 (if any) has been saved on the CIB by 
phase 1. In panel 3, phase 2 of the Core Image 



Loader has been fetched by phase 1; DISKZ has been 
fetched by phase 2. If DISKZ is currently present in 
the Resident Monitor, phase 2 is not called as shown 
in panel 3. In panel 4, phase 0/1 of the Core Load 
Builder has been fetched by phase 1 of the Core 
Image Loader. 

Figure 8 shows the layout of the contents of core 
storage following an entry to the Skeleton Supervisor 
at $LLNK when the program being linked to is in disk 
core image format (DCI). In this case DISKZ is 
currently present in the Resident Monitor. In panel 
1, phase 1 of the Core Image Loader has been 
fetched by the Skeleton Supervisor, Low COMMON 
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Figure 7. Core Layout on Supervisor at $LIN;K (Link in Disk System 
Format) 



has been saved by phase 1, and the LET/FLET 
search buffer has been allocated. In panel 2, phase 
2 of the Core Image Loader has been fetched by- 
phase 1; the core image header buffer has been 
allocated by phase 2. In panel 3, the disk I/O sub- 
routine required by the program being linked to has 
been fetched into the Resident Monitor. Panels 
4, 5, and 6 represent three different cases. In 
panel 4 the program being linked to is a DCI pro- 
gram, whereas in panels 5 and 6 it is a DSF pro- 
gram. Although the Core Load Builder is called 
into core in the DSF cases, it is not shown here 
in order to simplify the diagram. In panel 4 , the 
program being linked to has been fetched by phase 
2. In panel 5, COMMON defined by the previous 
core load below location 4096, previously saved 
on the CIB by phase 1 of the Core Image Loader, 
as well as the program being linked to, has been 
fetched by phase 2. In panel 6, the portion of 
the program being linked to that is contained in 
the CIB (the portion below location 4096, placed 
in the CIB by the Core Load Builder) has been 
fetched by phase 2. 

DEBUGGING/ANALYSIS AIDS 

To facilitate the finding of errors in and associated 
with the Core Image Loader, NOP instructions have 
been placed at critical locations in the Core Image 
Loader; they are: CM000+1, CM118-5, CM180, 
LD000+1, GETCL, and LD100+8. These NOPs can 
be replaced by WAIT instructions so that core dumps 
can be taken at various stages during Core Image 
Loader execution. An analysis of the core dump(s) 
may provide enough information to locate the problem. 

Bear in mind that the Core Image Loader is 
naturally relocatable. Thus, all modifications 
made to it must be executable irrespective of core 
location. 
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SECTION 8. CORE LOAD BUILDER 



FLOWCHARTS 
Phase 1 (IN): CLB01 
Phase 2 (MC): CLE-02 



The Core Load Builder builds a specified mainline 
program into an executable core load. The main- 
line program, with its required subroutines (LOCALs 
and SOCALs included), is converted from disk 
system format (DSF) to a format suitable for execu- 
tion. During the conversion, the Core Load Builder 
also builds the core image header record and the 
transfer vector. The resulting core load is suitable 
for immediate execution or for storing on the disk in 
disk core image format (DCI) for future execution. 



GENERAL COMMENTS 



Each phase of the Core Load Builder has been 
broken up into a series of relatively small, self- 
contained subroutines. After initialization (phase 1) 
control remains in the Master Control subroutine, 
which is apart of phase 2. (The labels in this sub- 
routine all start with "MC". ) In other words, the 
basic control logic is found in the Master Control 
subroutine. 

The labels assigned to constants and work areas 
within subroutines are in the range 900-999. When- 
ever noted, even-numbered labels are on even 
boundaries, and odd -numbered labels are on odd 
boundaries. Constants and work areas in RCOM 
(phase 0) are mnemonic and are arranged in four 
groups, each ordered alphabetically. Double-word 
cells are in one group, indexed cells are in a second; 
constants are in a third; and switches and work areas 
are in a fourth. The labels of switches are of the 
form "LSWx", where "x" is a number. The labels 
of constants are of the form "Kx", where "x" is 
either the number, in decimal, defined in the con- 
stant or the four hexadecimal digits defined in the 
constant. 

Patch areas are usually found at the end of a phase. 
Each one is defined by a BSS followed by a DC. 



OVERLAY SCHEME AND CORE LAYOUT 

The overlays (phases) of the Core Load Builder have 
been organized to allow maximum core storage for 
the Load Table while minimizing the flip-flopping of 
phases. "Minimizing" here means that, during a 
one-pass building process (no LOCALs or SOCALs), 
the phases are executed serially from 1 through 6 
(excluding 5). During a two-pass building process 
(LOCALs and/or SOCALs required), there is some 
flip-flopping of phases 3 and 5. 

Phase is never overlaid. It contains the sub- 
routines that must never be overlaid, as well as 
work areas and constants required by more than one 
subroutine. 

Phase 1 is fetched along with phase 0. The only 
difference is that phase 2 overlays phase 1 but not, 
of course, phase 0. Phases 3, 4, 5, 6, and 12 over- 
lay the last part of phase 2. 

Phases 7-10 contain messages. They all require 
that the principal print subroutine be in the data 
buffer; these phases themselves are executed from 
the LET/FLET search buffer. 

Phase 11 prints the file map and phase 12 the core 
map . Both of these phases require that the principal 
print device subroutine be in the LET/FLET search 
buffer. Phase 11 is executed from the data buffer. 

Figure 9, panel 1 shows the layout of the contents 
of core storage after phases and 1 of the Core Load 
Builder have been fetched into core storage by phase 
1 of the Core Image Loader or the STORE function 
of DUP. 

Figure 9, panel 2 shows the layout of the contents 
of core storage after phase 1 has fetched phase 2, 
overlaying itself. Phase 2 has allocated the areas for 
the Load Table and the disk I/O buffers. 

Figure 9, panel 3 shows the layout of the contents 
of core storage after any one of the overlay phases 
has been fetched by phase 2. 

Phase 1 includes the subroutines called by the in- 
itialization subroutine. In this way, phase 2 can over- 
lay phase 1 completely. Phase 2 includes the sub- 
routines called by the relocation subroutine, RL. The 
order of the subroutines in this phase is important. 
Those that are required only during the relocation of 
the mainline (MV, ML, CK, DC, DF, and FM) come 
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Figure 9. Core Layout During Core Load Builder Operation 



last so that they may be overlaid by phase 3. Phase 3 
includes the subroutines required to choose a sub- 
routine (as opposed to a mainline) from the Load 
Table and relocate it. Phases 4 and 6 round out the 
one-pass core load building process. Phase 4 
determines whether or not SOCALs are required, 
and, if so, whether or not they can be employed to 
make the core load fit into core storage. It also 
processes ILSs. Phase 6 performs the miscellaneous 
jobs, such as creating the transfer vector, that can 
be done only at the end of the process of building a 
core load. Phase 5 is executed only during pass 2 
in a two-pass building process. It organizes the 
LOCALS and SOCALs for relocation, including their 
special linkages. 



DISK BUFFERS 

There are three buffers used by the Core Load 
Builder. Each is 320 words long, not counting the 
word count and sector address, and each has a 
primary use, although it may be used temporarily 
for something else. For example, the LET search 
buffer is used primarily to hold a sector of LET/ 
FLET when searching that table. However., it con- 
tains one of the message phases (phases 7-10) 
whenever a message is printed. 

The data buffer is a buffer for the User Area. 
The program currently being incorporated Into the 
core load is read into this buffer, one sector at a 
time. For example, after a sector of the mainline 
is read into this buffer from the User Area or 
Working Storage, the relocation of the mainline can 
begin. When this sector of the mainline has been 
relocated, another sector (if any) is fetched, and 
so on until the entire mainline is relocated. 

The main use of the CIB buffer is to contain the 
CIB, one sector at a time. For example, If a core 
load is to occupy locations 1000 - 1639, then the first 
sector of the CIB contains the part of the core load 
that is to occupy 1000 - 1319 and the second sector 
1320 - 1639. As the core load is built, the Location 
Assignment Counter (LAC) reflects the ultimate core 
address of the data word currently being relocated. 
In this example, the LAC would start at 1000, thus 
causing sector 1 of the CIB to be read into the CIB 
buffer. This first word of the core load would be 
placed in the first word of the CIB buffer and the 
LAC advanced by 1. Assuming no data breaks, the 
LAC will eventually be incremented to 1320. Then 
the contents of the CIB buffer will be written out 
on sector 1 of the CIB, and sector 2 will replace 
sector 1 in the CIB buffer. In short, each word of 
a core load is always transferred to the CIB via the 
CIB buffer. 

The data and CIB buffers are combined into a 
single 640-word buffer for the purpose of fetching 
the LOCAL, NOCAL, and FILES information from 
the SCRA. 



CORE IMAGE BUFFER (CIB) 

The Core Image Buffer is used by the Core Load 
Builder, the Core Image Loader, and the Skeleton 
Supervisor. The Core Load Builder uses It to store 
any part of the core load that is to reside (when the 
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core load is executed) below location 4096. The 
first word of the mainline is stored in the first word 
of the CIB following the core image header, and 
subsequent words follow similarly. Thus, the 
mainline must be relocated first, and a subse- 
quent ORG that would set the Location Assignment 
Counter below its first value is not allowed. 

LOAD TABLE 



The values stored in word four at various times 
are: (1) the class code (for a non-LOCAL), (2) the 
address of the Flipper Table entry, (3) /008 for 
every subroutine called by a LOCAL, (4) the word 
count of a LOCAL, (5) the address of the Load Table 
entry for the specified entry point for the LOCAL 
currently being relocated, and (6) the address of the 
LIBF TV that corresponds to the entry in the Load 
Table. 



The Load Table is used by the Core Load Builder 
primarily to tell what subprograms to include in the 
core load as well as at what time during the process 
of core load building to include a given subprogram. 
Other uses of the table are discussed below. It 
exists only during the building of a core load. 

There is an entry in the Load Table for (1) every 
LOCAL/NOCAL entry point specified for a given 
mainline and (2) for each subprogram entry point 
referenced in a core load, via CALL or LIBF. For 
example, even though subprogram A is called five 
times, there is only one entry in the Load Table for 
A. On the other hand, if A and B are different 
entry points to the same subprogram and both are 
referenced, then there will be an entry for A and 
another for B. 

Each of the Load Table entries is four words in 
length. The first entry occupies locations 4086 - 
4089, the second 4082 - 4085, etc. The first two 
words of each entry contain the name (in name code) 
of the subprogram that caused the entry to be made. 
Bit zero of the first word is set if the entry is that of 
a LOCAL, bit one is set if the entry is that of a 
CALL. Mainlines and interrupt level subroutines 
never appear in the Load Table. 

Words three and four of each entry are zero when 
the entry is first made. As the relocation of a given 
subprogram begins, word three is set with the entry 
point, i.e., the absolute, address. In this way, the 
Core Load Builder can tell by looking at its Load 
Table entry whether or not a subprogram has been 
relocated and where it has been relocated to. 

Word four is put to several uses, most of which 
involve LOCAL processing. The use of this word at 
a given time is dependent upon the pass (1 or 2) and/ 
or whether the subprogram associated with the Load 
Table entrv is a LOCAL that was specified in the 
LOCAL information in the SCRA. As an explana- 
tion, suppose that A and B are entry points to the 
same subprogram, and A ( but not B) appears in 
the LOCAL information in the SCRA. Both A and 
B can be called in the core load; in such a case 
A is said to be specified and B unspecified. These 
terms are useful in the following context. 



LOCAL, NOCAL, AND FILES INFORMATION 

LOCAL, NOCAL, and FILES information is obtained 
from the Supervisor Control Record Area (SCRA). 
This information is supplied by the Supervisor Con- 
trol Record Analyzer (see Section 6: Supervisor) or 
the STORE CI function of DUP (see Section 9: Dis k 
Utility Program ). For the format of LOCAL, 
NOCAL, and FILES information in the SCRA, see 
Section 6: Supervisor or Section 9. Disk Utility 
Program. 

ISS TABLE 

The ISS Table is used by the Core Load Builder as it 
constructs Interrupt Branch Tables for ILSs. When 
the address to which an ISS is to be relocated be- 
comes available, that address is stored in the 
appropriate entry in the ISS Table. For example, if 
an ISS for the 1132 Printer (ISS number 6) is being 
relocated to location /1000, then /1000 is stored in 
word 6 of the ISS Table. This address will later 
be used during the construction of the Interrupt 
Branch Table (IBT) for ILS01. 



INTERRUPT BRANCH TABLE (IBT) 

Each ILS in the System Library that is filled in by 
the Core Load Builder (ILS00, ILS01, and ILS03) 
begins with an Interrupt Branch Table (IBT). ILS02 
and ILS04, which are a part of the Resident Monitor, 
require special treatment to construct their IBTs, 
unless the user supplies his own ILS02 and/or 
ILS04. A given IBT consists of the addresses of the 
interrupt service entry points for the devices on the 
corresponding interrupt level. Thus, if there are 
two devices on a level, there are two entries in the 
IBT; and each entry consists of one word, that word 
being the address of the interrupt service entry point 
to the ISS for the device represented by the IBT entry. 

For user-written core loads (as opposed to 
monitor system programs), the IBT for ILS04 is 
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constructed by the Core Load Builder and stored in 
the core image header record. When the Core 
Image Loader fetches a core load (including the core 
image header), the address of the IBT for level 4 
is stored in location $IBT4, from which it is accessed 
by ILS04. The IBT for ILS02 is a single word, 
$IBT2, which contains the address of DZ000+4, 
regardless of the disk I/O subroutine present in the 
Resident Monitor,, This address is stored in $IBT2 
by the Core Image Loader as it fetches the requested 
disk I/O subroutine. The IBTs for the remaining 
ILSs are constructed and stored in the ILSs them- 
selves by the Core Load Builder. 

After all subprograms have been relocated, the 
Core Load Builder constructs the IBTs. The IBTs 
for all ILSs except ILS02 are constructed as des- 
cribed below. Bear in mind that these ILSs are 
written with special constants stored in each IBT 
entry. These constants, which will be overlaid by 
the Core Load Builder, are as follows: The first 
eight bits of each constant represent the increment 
to be added to the loading address of the correspond- 
ing ISS to get the address of the interrupt service 
entry point; for IBM-supplied ISSs, this value is 
four, except for the "operation complete 1 ' entry point 
for the 1442 subroutines, for which the value is 
seven. The second eight bits are @ISTV plus the 
ISS number; thus, each IBM entry has an identifier 
to relate it to a specific ISS. 

The Core Load Builder fetches one word at a time 
from the IBT, i. e. , one of the special constants 
occupying the IBT locations in the ILS. The second 
eight bits of the word fetched are used to compute 
the address of the ISS Table entry for the ISS 
number indicated. If the ISS Table entry is non-zero, 
it contains the loading address of the ISS itself, 
which is then incremented by the value stored in the 
first eight bits of the word fetched. The resulting 
address, which is the address of the interrupt 
service entry point, replaces the special constant 
that supplied the two eight-bit values. If the ISS 
Table entry is zero, the special constant is replaced 
with the address of $STOP, the PROGRAM STOP 
key trap in the Skeleton Supervisor* This process 
of replacing special constants continues until a zero 
is fetched from the IBT, indicating that the entire 
IBT has been processed. Except for ILS04, this 
zero is the entry point to the ILS itself. 



INCORPORATING PROGRAMS INTO THE CORE 
LOAD 



PASS 1 

The mainline is relocated first. Any calls found 
during this relocation are put in the Load Table. 
After the mainline has been converted, each sub- 
program represented in the Load Table is re- 
located, generally in the order found in the table 
itself. An entry is flagged as having been relocated 
by storing the address of the entry point in the third 
word of the entry. Before an entry is relocated, 
the names of all the entry points to the entry being 
considered for relocation are compared with the 
name of each entry preceding it in the Load Table. 
A match indicates that the current entry is simply 
another entry point to a previously relocated sub- 
program. Thus, the current entry is not relocated; 
instead, the absolute address of the entry pioint is 
determined and stored in the third word of the entry 
to signify that it has already been relocated. 

Furthermore, the names of all the entry points 
to the entry being considered for relocation are com- 
pared with the name in each entry in the Load Table 
following it. If a match occurs, the third words of 
both entries are filled in with the absolute address 
of the entry point. Thus, the Load Table is scanned 
forward and backward for other entry points to the 
subprogram currently being considered for re- 
location. 



PASS 2 

The Load Table is scanned during pass 2 in the same 
way as during pass 1. The only difference is that 
subprograms are relocated in a certain order during 
pass 2, thus necessitating multiple passes through 
the Load Table; in fact, one pass is required for each 
class of subprograms. Thus, all the in-cores (class 
0) are relocated first, followed by LOCALs, sub- 
programs in SOCAL 1 (class 1), subroutines in 
SOCAL 2 (class 2), and subroutines in SOCAL 3 
(class 3), in that order. 
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LOCALS AND SOCALs 

If during the first pass the Core Load Builder 
(phase 4) determines that an Assembler core load 
will not fit into core storage even with any LOCALs 
that have been specified, the core load building 
process is terminated. However, for a FORTRAN 
core load special overlays (SOCALs) of parts of the 
core load will be created during a second pass if 
this will make the core load fit. The decision of 
whether to proceed with a second pass is made after 
phase 4 accounts for the sizes of the LOCAL area, 
if any, the flipper and its table, and each of the 
SOCALs. If the check shows that SOCAL option 1 
(SOCAL 1 and SOCAL 2) will be insufficient, then 
a further check is made for option 2 (all three 
SOCALs). If option 2 is still insufficient, process- 
ing is terminated; otherwise, a second pass is made. 

During pass 2, the entire core load is built 
again, but, unlike during pass 1, subprograms are 
relocated in a special order. First, the mainline 
and the in-core (class 0) subprograms are relocated, 
followed by: the flipper; the LOCALs, if any; the 
arithmetic and function (class 1) subprograms; the 
non-disk FIO (class 2) subroutines; and, if 
necessary, the disk FIO (class 3) subroutines. 

The same procedure described above is necessary 
if LOCALs are employed without SOCALs. In other 
words, LOCALs, as well as SOCALs, require two 
passes. 



INTERRUPT LEVEL SUBROUTINES (ILSs) 

After all other subprograms have been relocated, 
the Interrupt Transfer Vector (ITV) in the core 
image header is scanned. Except for the entries 
for interrupt levels 2 and 4, a non-zero entry 
causes the corresponding ILS to be incorporated 
into the core load. (ILS02 and ILS04, unless 
supplied by the user, are a part of the Resident 
Monitor.) See Interrupt Branch Table , above, 
for a description of the processing of that part of 
an ILS. 



TRANSFER VECTOR (TV) 

The transfer vector consists of two parts: the 
LIBF TV and the CALL TV, The former provides 
the linkage to LIBF subprograms, the latter to 
CALL subprograms. The LIBF TV was created to 



enable the LIBF statement to require only one 
storage location during execution. This is desirable 
because 1130 FORTRAN object code contains a very 
high percentage of calls to subprograms. Long 
branches to those subprograms would greatly in- 
crease core requirements for core loads over a 
method that employs short branches. By replacing 
the LIBF statement with a short BSI, tag 3, to a 
transfer vector entry, which could then supply the 
long branch to the desired subprogram, this problem 
is solved. The cost, of course, is that XR3 is taken 
away from the user and the transfer vector is limited 
to 255 words „ This means the LIBF TV has a 
maximum of 85 3 -word entries, two of which become 
the real-number pseudo -accumulator (FAC) and an 
indicator for certain arithmetic subroutines. Thus, 
the user is limited to LIBFs to not more than 83 
separate subprogram entry points per core load. 

There is no theoretical limit on the number of 
CALL entry points per core load, for the CALL 
statement is replaced by an indirect BSI to the 
desired subprograms. However, the number of 
CALL and LIBF references combined must not 
exceed the capacity of the Load Table, which is 
approximately 150 entries. 

The CALL TV entry is one word only, the address 
of the subprogram entry point. This makes it pos- 
sible to replace a CALL statement with an indirect 
BSI to the corresponding CALL TV entry, even though 
the address of the subprogram itself may not be 
known at the time the CALL is processed. 

When stored on disk in disk core image format 
(DCI), the LIBF TV follows the last word of the last 
subprogram in the core load. It may leave one word 
vacant between it and the CALL TV in order to 
make the pseudo-accumulator (FAC) begin on an 
odd boundary. The CALL TV immediately follows 
the indicator entry in the LIBF TV. During execu- 
tion the TV extends downward in core storage from 
the lowest-addressed word in COMMON. 

Whereas the CALL TV entry consists of only one 
word (the address of the subprogram), the LIBF TV 
entry consists of three words. The first is a link 
word (initially zero), and the second and third are a 
long BSC to the subprogram entry point. 

Figure 10 shows the layout of the transfer vector 
in core storage. 

Linkage to LOCALs 

The LOCAL/SOCAL flipper (FLIPR) is included in a 
core load if that core load requires LOCALs and/or 
SOCALs. The flipper transfers control to a LOCAL, 
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COMMON 



fetching it first, if necessary. It does likewise for 
a SOCAL, except that it is never entered if a sub- 
program is called that is a part of the SOCAL current- 
ly in the SOCAL area (see Linkage to the System 
Overlays) . 

The Flipper Table immediately precedes the 
flipper. It consists of a 6-word entry for each entry 
point specified in the LOCAL information in the SCRA 
(for a given mainline) that is referenced by a CALL 
and a 5 -word entry for each entry point referenced by 
a LIBF. If a subprogram has more than one entry 
point but only one is specified in the LOCAL informa- 
tion (a specified LOCAL), there is a Flipper Table 
entry for each entry point referenced in the core 
load. 

The format of a 5 -word (LIBF) entry in the 
Flipper Table is as follows: 



Wor d 

1-2 
3 
4 
5 



Description 

BSI L FL000 

Word count of the subprogram 
Sector address of the subprogram 
Entry point address in the sub- 
program 



The format of a 6 -word (CALL) entry in the 
Flipper Table is as follows: 



Wor d 

1 
2-3 
4 
5 
6 



Description 

Link word 
BSI L FL010 

Word count of the subprogram 
Sector address of the subprogram 
Entry point address in the sub- 
program 



Linkage to the System Overlays (SOCALs) 

In order to assure very fast transfer to a subprogram 
that is a part of a SOCAL that is in core storage at 
a given time, special transfer vector entries are 
made for SOCAL subprograms. They are different 
from the standard LIBF and CALL linkages, and they 
are different from the linkage to a LOCAL. The 
SOCAL transfer time is approximately 20 micro- 
seconds, compared to 150-180 microseconds to a 
LOCAL. (Both timings assume a 3. 6 microsecond 
storage cycle.) 

Figure 11 shows an entry in the LIBF TV for an 
in-core subprogram (entry 2) and the special linkage 
in the LIBF TV for SOCAL subprograms (entries 
3-8). Entry 1 is the LIBF TV entry for a SOCAL 
subprogram. The "disp" is a displacement to the 
second word of the linkage for the SOCAL in which 
the subprogram is found. 

The example represented in Figure 11 Is one that 
requires SOCAL option 2; TV entries 5 and 8 would 
not appear if option 1 were used. Entry 1 is the 
last entry in the LIBF TV, i.e. , the highest- 
addressed word of the transfer vector. Suppose that 
(1) a LIBF to FADD were made and (2) SOCAL 1 were 
not in core. The LIBF would be a BSI to the first 
word of entry 1, which would then BSI to the second 
word of entry 3. Entry 3 would MDX to the first 
word of entry 6, which would transfer control to the 
LOCAL/SOCAL flipper subroutine (FLIPR) at 
FL230, the entry point in FLIPR for fetching the 
arithmetic subprograms. The flipper would fetch 
SOCAL 1, change the third word of entry 3 to MDX 
to *-3, and BSC to the first word of entry 3, which 
then transfers control to FADD. The flipper would 
also ensure that the third words of entries 4 and 5 
were both MDX to *-12. 
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ENTRY 8 - a branch to the entry point 
in the flipper for fetching SOCAL 3; 
an unused word 



ENTRY 7 - a branch to the entry point 
in the flipper for fetching SOCAL 2; 
an unused word 



ENTRY 6 - a branch to the entry point 
in the flipper for fetching SOCAL 1; 
an unused word 



ENTRY 5 - a branch to a subroutine in 
SOCAL 3 via word 3 of LIBF TV 
entry; a branch to fetch SOCAL 3 



the first word of entry 3, followed by a transfer of 
control to FADD. The transfer has required only 2 
short BSIs, a short MDX, and an indirect BSC. 

The linkage for a CALL to a function is somewhat 
different from that just described,, Suppose that 
(1) SOCAL option 2 was used and (2) each SOCAL 
consists of two subprograms, FABS and FSQR being 
the functions in SOCAL 1. 

Figure 12 shows SOCAL 1, SOCAL 2, and SOCAL 
3 as they are stored on the disk. The first 2 words 
of each of these SOCALs are the CALL TV for 
the subprograms in that SOCAL. 

A CALL to FSQR, for example, would be an 
indirect BSI to the second word of whichever SOCAL 
happened to be in the SOCAL area. If this were 
SOCAL 1, control would be immediately transferred 
to FSQR. Otherwise, control would first be given to 
the LOCAL/SOCAL flipper at FL200, the entry point 
in FLIPR for fetching the function subprograms. 
The flipper would fetch SOCAL 1 and re-execute the 
original CALL to FSQR. 



BSC 



MDX * — 12 I 



BSC 



MDX *-12l 



DC *-* I BSC LI FLOAT 



ENTRY 4 - a branch to a subroutine in 
SOCAL 2 via word 3 of LIBF TV 
entry; a branch to fetch SOCAL 2 



ENTRY 3 - a branch to a subroutine in 
SOCAL 1 via word 3 of LIBF TV 
entry; a branch to fetch SOCAL 1 



ENTRY 2 - a link word; a branch to 
an in-core subroutine, i.e., 
FLOAT 



DEFINE FILE TABLE 

The processing of the DEFINE FILE Table normally 
consists of filling in word 5 (the sector address) for 
each entry in the DEFINE FILE Table preceding the 
mainline program. 

However, additional processing is required when 
a file must be truncated, i.e. , the space available 
on the disk is insufficient to store the number of 
records defined in the file. If the file is in the User/ 
Fixed Area, or if it is the only file in a particular 
Working Storage, then the Core Load Builder attempts 
to truncate it enough to fit. 



DC 
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ENTRY 1 - a link word; a branch to 
the SOCAL linkage for a subroutine 
in SOCAL 1; the address of a sub- 
routine in SOCAL 1, i.e., FADD 

HIGH 
CORE 



Figure 11 . SOCAL Linkage in the LIBF Transfer Vector 



Suppose now that FADD were called again before 
some subprogram in either SOCAL 2 or SOCAL 3 
were called. This time the LIBF would cause a 
BSI to the first word of entry 1 and then to the 
second word of entry 3. The MDX would then be to 



CALL TV for FABS, 
consisting of the 
entry point address 
of FABS 

CALL TV for FSQR, 
consisting of the 
entry point address 
of FSQR 



FL200, the address of 
the entry point in 
the flipper for 
fetching SOCAL 1 
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Figure 12. CALL Transfer Vector for SOCALs 
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First, the entire DEFINE FILE Table is fetched 
and stored in the unoccupied area allocated to the 
Load Table. If the Core Load Builder determines 
that a file can be truncated, the number of records 
and the disk block count in the appropriate DEFINE 
FILE Table entry are modified accordingly. As 
each entry is completed, all seven words are relocat- 
ed in the same manner as the other words of the 
core load. 

The processing consists of comparing the file 
number of a DEFINE FILE Table entry with each of 
the file numbers in the FILES information in the 
SCRA, if any. If a match occurs, the name of the 
disk area associated with the file number obtained 
from the FILES information is found in LET/FLET, 
and the absolute sector address of that disk area 
is placed in word 5 of the DEFINE FILE Table 
entry. If none of the file numbers from the FILES 
information match the file numbers in the DEFINE 
FILE Table, the file is set up in Working Storage, 
i. e. , the relative (to beginning of Working Storage) 
sector address is stored in the DEFINE FILE 
Table. The sign bit is set to indicate that this is 
a relative address. In either case, the system 
cartridge is assumed unless a cartridge ID has 
been specified in the FILES information. 

The format of a DEFINE FILE Table entry is as 
follows: 

Symbolic 
Word Description Reference 



1 File number 

2 Number of records in the file 

3 Number of words per record 

4 Address of the associated 

variable 

5 Sector address of the file; 

initially zero, filled in by 
the Core Load Builder 

6 Number of records per sector 

7 Disk block count of the file 

PHASE DESCRIPTIONS 



@FLNR 
@RCCT 
@WDRC 

@ASOC 



@SCAD 

@RCSC 

@BCNT 



PHASE 

Phase always remains in core. It consists of two 
main sections, (1) the basic subroutines required by 
all other phases and (2) the constants and work areas 
shared by two or more subroutines. The latter 
section is known as RCOM. 

The following is a list of the subroutines that 
comprise phase and the functions they perform. 



Function 

Search LET/FLET 

Fetch the mainline program header 

record 
Fetch the next word in sequence 

from the data buffer, reading a 

new sector when necessary 
Test a subroutine name for disk I/O 
Add an entry to the Load Table 
Fetch a phase 
Exit to DUP, Supervisor, or Core 

Image Loader 
Print a message and transfer to 

EX000 
Fetch one of the message phases 

and transfer control to it 
Read from or write to the disk 



Subroutine 

LS000 
RH000 

NW000 



CN000 
BT000 
LK000 
EX000 

TL000 

PM000 

GP000 

PHASE 1 



Phase 1 performs the initialization functions that 
must be done prior to the relocation of the mainline. 
Initialization consists of, principally, fetching 
DCOM and extracting the parameters that are needed 
by the Core Load Builder, and fetching the mainline 
header record and saving the information therein. 

In addition, phase 1 makes an entry in the Load 
Table for each LOCAL and NOCAL specified in the 
LOCAL and NOCAL information in the SCRA, if any. 

The following is a list of the subroutine) s that 
comprise phase 1 and the functions they perform. 

Subroutine Function 

IN000 Initialize the Core Load Builder, 

process the mainline header 

LN000 Enter LOCAL and/or NOCAL 

names in the Load Table 



PHASE 2 

After the execution of phase 1, part of phase 2 re- 
mains in core until the core load is completed. 
Phase 2 contains the Master Control subroutine, 
the relocation subroutine, and the transfer subroutine, 
among others (see below). Master Control supplies 
the basic logic for the Core Load Builder. The re- 
location subroutine supplies the logic for relocating 
a program, i.e. , incorporating it into the core load. 
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The transfer subroutine provides the logic for trans- 
ferring a relocated word of the core load to the CIB, 
the CIB buffer, or Working Storage, whichever is 
appropriate. These three subroutines are basic to 
the process of building a core load„ 

The following is a list of the subroutines that 
comprise phase 2 and the functions they perform. 



Subroutine 
MC000 
RL000 

TS000 
TR000 

XC000 

DC000 
MV000 
ML000 

CK000 

DF000 

FM000 



Function 

Master control for the Core Load 

Builder 
Relocate a program; convert it 

from disk system format to disk 

core image format 
Process the IBT 
Output one data word to core or 

disk 
Fill in exit control cells during 

pass 2 
Process DSA statements 
Output the DEFINE FILE Table 
Check mainline loading address 

for validity 
Check for overlay of core load and 

COMMON 
Process the DEFINE FILE Table 

entries 
Print a map of the DE FINE FILE 

Table 



Subroutine Function 

HR000 Process the program header 

record for subroutines 

CC000 Control the loading of subroutines 

by type 

TY000 Verify subroutine references 

SV000 Scan Load Table for multiple 

references 



PHASE 4 

Phase 4 performs two functions. It incorporates 
ILSs into the core load and it determines whether or 
not a core load fits in core storage or can be made 
to fit with SOCALs by computing the core that can 
be saved by employing SOCALs. 

The following is a list of the subroutines that 
comprise phase 4 and the functions they perform. 



Subroutine 

IL000 
ET000 



PHASE 5 



Function 

Fetch and relocate an ILS 
Calculate core load size 



PHASE 3 

Phase 3 performs four functions. It checks the 
information in subroutine header records (except 
ILSs) and stores it in RCOM. It also ensures that 
during pass 2 the subprograms are relocated by 
class, i.e. , class first, LOCALs second, class 1 
third, class 2 fourth, and class 3 fifth. It compares 
the reference to each subprogram, i.e., CALL or 
LIBF, with the type (from the program header 
record). Lastly, as a subprogram is chosen for 
relocation, phase 3 checks whether or not it has 
already been relocated under a different name, i. e. , 
another entry point. 

The following is a list of the subroutines that 
comprise phase 3 and the functions they perform. 



Phase 5 creates the Flipper Table if LOCALs have 
been specified, sees to it that the flipper is relocated, 
and provides the logic for building each SOCAL. 
This phase is flip-flopped with phase 3. It is brought 
into core storage once if there are LOCALs and once 
for each SOCAL, which implies a maximum of four 
times. 

The following is a list of the subroutines that 
comprise phase 5 and the functions they perform. 

Subroutine Function 

PL000 Process LOCAL subprograms 

PS000 Process SOCAL subprograms 

FF000 Relocate the LOCAL/SOCAL 

flipper, FLIPR 
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PHASE 6 



PHASE 11 



Phase 6 performs several miscellaneous functions 
that must follow the actual building of most of the 
core load. The most important of these is the con- 
struction of the transfer vector from the Load Table. 
Other functions performed in phase 6 are filling in 
exit control cells and completing the core image 
header. 

The following is a list of the subroutines that 
comprise phase 6 and the functions they perform. 

Subroutine Function 

TV000 Build the transfer vector 

TP000 Complete core image header, fill 

in exit control cells, etc. 



PHASE 7 

Phase 7 formats and prints (via the principal print 
device subroutine) all messages from R00-R10, 
These messages contain no variables. 



PHASE 8 

Phase 8 formats and prints (via the principal print 
device subroutine) all messages from R16-R23. 
These messages contain a 5-character name follow- 
ing "R XX", 



PHASE 9 

Phase 9 formats and prints (via the principal print 
device subroutine) all messages from R39-R47. 
These messages contain a hexadecimal address 
following "R XX 1 '. 



PHASE 10 

Phase 10 formats and prints (via the principal print 
device subroutine) all messages from R64-R68, 
These messages contain a 5-character name follow- 
ing "R XX", 



Phase 11 formats and prints (via the principal print 
device subroutine) the files portion of the map. It 
is entered only if (1) a map is requested and (2) there 
are files defined. 



PHASE 12 

Phase 12 formats and prints (via the principal print 
device subroutine) the allocations of core storage. 
It is entered only if a map is requested. 



DEBUGGING/ANALYSIS AIDS 

Stopping the Core Load Builder at the proper time 
is often the key to pinpointing problems in monitor 
system and, in some cases, user programs. There 
are NOP instructions in several critical locations in 
the Core Load Builder; they are: LK000+1, PM000+1, 
IN000+1, MC000, E1000+1, E2000+1, E3000+1, and 
E4000+1. These NOPs can be replaced by WAIT 
instructions so that core dumps can be taken at 
various stages of the core load building process, 
A WAIT replacing the NOP at PM000+1 is often the 
most useful, for it can be used to stop the Core Load 
Builder just before an error message is printed. 

Bear in mind that, even though an error is detect- 
ed by the Core Load Builder, it may well be due to a 
failure somewhere else in the monitor system. The 
message printed may not be a very good indication of 
the error; many checks are present in the Core Load 
Builder simply to keep it from destroying itself. 
For example, a common message is R16, and the 
name given in the message may well be something 
that makes no sense or was not referenced in the 
core load. The problem may well be erroneous 
output from the FORTRAN Compiler or Assembler 
Program or a destroyed User Area. In such a case 
an analysis of the contents of the data buffer BUFLO 
usually provides the clue to the error. 

To facilitate path tracing through the Core Load 
Builder, all subroutines in the Core Load Builder 
are entered with BSI instructions. 
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SECTION 9. DISK UTILITY PROGRAM (PUP) 



FLOWCHARTS 


CCAT: 


DUP01 


DCTL: 


DUP02 


STORE: 


DUP03 


FILEQ: 


DUP04-06 


DDUMP: 


DUP07-08 


DUMPLET: 


DUP09 


DELETE: 


DUP10 


DEFINE: 


DUP11 


DEXIT: 


DUP12 


PRE CI: 


DUP13 



The Disk Utility Program (DUP) is actually a group 
of programs provided by IBM to perform certain 
frequently required operations involving the disk 
such as storing, moving, deleting, and dumping 
data and/or programs. These operations are called, 
for the most part, by user-supplied DUP control 
records. 



DUP OPERATION 



When DUP is called, the phases CCAT and DUPCO 
are brought into core storage. CCAT forms the re- 
quired DUP I/O subroutine sets (phases 14, 15, 16) 
and records them. CCAT also forms the balance of 
UPCOR, including CATCO and the principal print 
device subroutine, and is completely overlaid by 
part of UPCOR, leaving only the DUPCO part of 
phase 1 in core storage as part of UPCOR. 

Control is passed to REST (of DUPCO) and REST 
in turn calls DCTL into core storage. 

In general, DCTL reads, prints, decodes and 
checks the control records, and then calls in the re- 
quired phase to continue processing as the function 
requires. 

The called phase completes the function, includ- 
ing the printing of the terminal message. Control 
is then passed to REST (of DUPCO), which restores 
CATCO areas to zero as required for initialization, 
fetches DCTL if it is not already in core (4K system), 
and branches to DCTL to read the next record. 

When a monitor control record is read, a CALL 
EXIT is executed by DEXIT. 



CORE STORAGE LAYOUT 



Figure 13 shows the layout of core storage during 
DUP operation. Panel 1 shows the overlay scheme 
used for 4K systems, panel 2 for 8K systems, panel 
3 for 16K systems, and panel 4 for 32K systems. 
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Figure 13. Core Layout During Disk Utility Program Operation 
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DUP CONTROL RECORDS 



In the table below, DUP control records are classi- 
fied by type according to the phases required to com- 
plete their processing. 



Type 


Phases Required 


STORE 
STORE MOD 
STOREDATA 
STOREDATACI 


DCTL, STORE, DUPCO 


STORE CI 


DCTL,FILEQ, STORE, 
DEXIT, Core Load 
Builder, PRE CI, DCTL, 
STORE, DUPCO 


DUMP 
DUMPDATA 


DCTL, DDUMP, DUPCO 


DELETE 


DCTL, DLETE, DUPCO 


DEFINE FIXED AREA 

DEFINE VOID 
ASSEMBLER 

DEFINE VOID FORTRAN 


DCTL, DFINE, DUPCO 


DUMPLET 
DUMPFLET 


DCTL, DMPLT, DUPCO 


DWADR 


DCTL, DEXIT, ADRWS 
Program, DUPCO 



LOCATION EQUIVALENCE TABLE (LET)/FIXE D 
LOCATION EQUIVALENCE TABLE (FLET) 

LET is the table through which the sector addresses 
of programs and data files stored in the User Area 
may be found. Each entry in this table consists of 
three words , the first two of which are the program 
or file name in name code. The third word is the 
disk block count of the program or file. Bits and 1 
of the first word denote the format of the entry, i. e. , 
DSF, DCI, or DDF. The corresponding bit patterns 
are 00, 10, and 11. The 01 pattern is reserved for 
future use. For a DSF subroutine having multiple 



entry points, the disk block count is zero for all 
entry points except the first. 

Padding is inserted wherever a DCI or DDF 
entry is preceded by a DSF entry, and is re- 
flected in LET as if a program called "1DUMY" 
were stored. That is, each instance of padding 
generates a 1DUMY entry in LET, and the block 
count for each of these entries is the number of 
disk blocks to the nearest sector boundary (may 
be zero). The last entry in LET is always a 
1DUMY entry that reflects the number of disk 
blocks from the end of the last program stored in 
the User Area to the end of the disk. 

Each sector of LET contains a header, which 
occupies the first five words of the sector. The first 
word contains the sector number, which is 0, 1, . . . , 
or 7. The second contains the sector address of the 
User Area for this cartridge. The third is reserved 
for future use. The fourth contains 315 minus three 
times the number of LET entries found in this sec- 
tor, i.e. , the number of words unused (available) in 
this sector. If this is not the last sector of LET on 
this cartridge, then the fifth word contains the ad- 
dress of the next sector of LET. If it is the last 
sector of LET and if there is no FLET on this car- 
tridge, this word contains zero; otherwise, it con- 
tains the address of the first sector of FLET. In 
other words, this fifth word (chain address) is used 
to chain from LET through FLET, sector by sector. 
Bits 0-3 of the fifth word are always zeros. Note 
that, when referring to a dump of LET, the above 
header words are expressed in hexadecimal. 

FLET is the table through which the sector ad- 
dresses of programs and data files stored in the 
Fixed Area may be found. FLET is analogous to 
LET in the format of its entries and its use by the 
monitor system programs. 

LET/FLET is searched by LETSR of DCTL for 
the name decoded from DUP control records of the 
STORE, DUMP, and DELETE types. The informa- 
tion required by other DUP phases is recorded in 
CATCO. If a DSF program is being stored, then 
LETSR also searches LET/FLET for the secondary 
entry point names as well. 

STORE inserts the required entries into LET/ 
FLET (one entry for each entry point). If a DCI 
program or data file is being stored and padding 
is required, then a 1DUMY LET/FLET entry is 
inserted prior to the named LET/FLET entry. All 
secondary entry points have their entries on the 
same sector as the LET/FLET entry for the primary 
entry point. 
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PUP CONCATENATED COMMUNICATIONS 
AREA (CATCO) 

CATCO contains the following elements: 

• DCOM values that are read from DCOM and 
placed in CATCO by CCAT of DUPCO. 

• IOAR headers (word counts and sector addresses) 
required by DUP, furnished to CCAT by the 
System Loader, converted by CCAT to two-word 
entries each, and placed in DCOM by CCAT of 
DUPCO. 

• Words used only by DUP for switches, small 
work areas, and communications between various 
DUP phases. 

• I/O addresses used by DUP, initialized by CCAT 
of DUPCO. 



DCOM VALUES 

DCOM is read from the master cartridge by CCAT 
of DUPCO whenever DUP is called by the Monitor 
Control Record Analyzer. The following parameters 
in DCOM are used by DUP: 



Location 

#ANDU 

#BNDU 

#CBSW 

#CIAD 

#CIBA 

#CIDN 

#CSHN 

#DBCT 

#DCSW 

#ENTY 

#FCNT 

#FHOL 

#FLET 

#FMAT 

#FPAD 

#FRDR 

#FSZE 

#JBSW 

#LCNT 



Relative Address 
(decimal) 

35 

40 
10 
27 
60 
55 
90 

6 

24 
16 

7 
20 
75 
70 
45 
19 
21 

9 
11 



Location 

#MDF1 

#MDF2 

#MPSW 

#NAME 

#NCNT 

#PCID 

#PIOD 

#PPTR 

#RP67 

#SCRA 

#TODR 

#UHOL 

#ULET 

#USZE 

#WSCT 



Relative Address 
(decimal) 

13 
14 
12 
4 
15 
50 
25 
26 
17 
65 
18 
22 
80 
23 
85 



These parameters are referred to by an index regis- 
ter that contains the address of the first word of 
DCOM plus the displacement given above. 

Whenever a parameter in DCOM has been changed 
by DUP and control is being relinquished to another 
monitor system program, DUP writes the DCOM 
values in CATCO to DCOM on the master cartridge 
before exiting. If a change has been made that 
refers to a satellite cartridge, the DCOM values are 
also written to DCOM on the affected cartridge. 

See the description of DCOM in Section 2. Com- 
munication Areas for details regarding the above 
parameters. 



IOAR HEADERS 

CATCO contains the IOAR header for each phase of 
DUP required by other phases during the execution of 
the various DUP functions; they are: 



Location 


Phase Name 


Phase Number 


DCHDR 


DCTL 


2 


STHDR 


STORE 


3 


FLHDR 


FILEQ 


4 


DMHDR 


DDUMP 


5 


DLHDR 


DMPLT 


6 


DTHDR 


DLETE 


7 


DFHDR 


DFINE 


8 


DXHDR 


DEXIT 


9 


UCHDR 


UPCOR 


10 
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Location 


Phase Name 


Phase Number 


PIHDR 


KFACE 


11 


SIHDR 


CFACE 


12 


PTHDR 


PFACE 


13 


CfflDR 


PRE CI 


17 



These headers are initialized by CCAT of DUPCO 
whenever the Monitor Control Record Analyzer calls 
DUP. The contents of these headers are not altered 
by any phase of DUP. 

Each IOAR header consists of two words, word 1 
containing the word count and word 2 containing the 
sector address of a phase. Each pair is aligned on 
an even boundary. 



SWITCHES 

The following DUP switches are initialized by CCAT 
of DUPCO and not altered by any function of DUP. 

ADDR2 — Keyboard interrupt address, to be put in 
location &IREQ by MASK of DUPCO so that during 
a masked operation, the Keyboard interrupt is 
delayed by DUP until a critical operation is 
completed. 

KBREQ — Contents of location $TREQ , saved by 
CCAT of DUPCO when DUP is given control, and 
restored by DEXIT of DUP when leaving DUP. 

INOUT — Indicator for the principal I/O device 
when DUP was called by the Monitor Control 
Record Analyzer. 
Negative = Paper Tape. 
Zero = Cards. 
Positive = Keyboard. 

PTPON — A non-zero value if paper tape devices are 
are present on the system. 

IRT — Nine locations containing the interrupt branch 
table for level 4, initialized by CCAT of DUPCO 
and the card and paper tape interface phases. 

The following locations are used by DUP for in- 
ternal communication, and are initialized to zero 
by REST before each DUP control record is proc- 
essed. 



ASMSW — Set non-zero by DFCTL of DCTL when a 
DEFINE control record indicates that the Assem- 
bler Program is to be deleted from the master 
cartridge. Used by DFINE for functional flow 
control. 

BITSW — Set non-zero by RE015 of DCTL to allow 
the MDUMP subroutine in DUPCO to call the 
System Core Dump program while executing var- 
ious DUP phases. It is set on the basis of the 
contents of column 35 of the DUP control records. 
This column is not normally used, but it may be 
used to obtain snap-shot core dumps while per- 
forming DUP operations. A zero punched in this 
column causes all possible DUP dumps to occur. 
Other numbers cause core dumps to be taken 
when the phase with the same phase ID is in con- 
trol (See DUP Diagnostic Aids. ) . 

BLKSW — Set by the DUP I/O interface subroutine 
(in IOBLK) when reading control records if the 
record is neither a monitor control record (//) or 
a DUP control record (*D or *S). If turned on, 
DCTL turns it off and returns to the GETHO entry 
of the DUP I/O interface subroutine. This permits 
DUP to pass non-control records, including blanks, 
at the maximum rate of 1000 per minute with a 
single buffer. 

CIERR — Set to a DUP error code for an error 
detected by PRE CI during a STORE CI operation. 
DCTL checks CIERR when entered from PRE CI 
(CISW is non-zero) and goes to DEXIT thru 
LEAVE of DUPCO with the specified error code. 
PRE CI cannot go directly to LEAVE because DUP 
UPCOR may not be in core storage at this time 
due to the possibility of being overlaid by the core 
load being built. 

CISW — Set by DCTL when *STORECI is the function 
specified on the DUP control record. Used by 
DCTL to detect an entry from PRE CI (during a 
*STORECI function). Used by STORE to determine 
the functional path to be used. 



CLBSW — Set non-zero by PRECI. Used by STORE 
to indicate an entry from PRECI after the Core 
Load Builder has built the core load for the 
STORE CI function. 
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CL1, CL2 — The addresses of the lower and upper 
limits, respectively, of parameters in CATCO 
to be cleared to zero by REST of DUPCO. 

CNTNO — Used by GETBI of the DUP I/O interface 
subroutine (in IOBLK) to record the count of 
binary records being read or punched . Permits 
checksum and sequence check operations. 

DATSW — The binary equivalent of the decimal 
value in the count field of the DUP control rec- 
ord. Entered by DACNT of DCTL. A non-zero 
value represents either STOREDATA, 
DUMPDATA, DEFINE FDCED AREA count, or 
STORECI with *FILES, *LOCAL, and *NOCAL 
control records following. Contents are in disk 
blocks if the input is from disk, records if from 
an I/O device. Used by DUMP, STORE, DEFINE 
and FILEQ as a count; also used to control func- 
tional flow. FILEQ clears DATSW before calling 
STORE. 

DBADR — Set by LETSR of DCTL to the disk block 
address of the program represented by the last 
LET/FLET entry searched. Used by DUMP and 
DELETE to indicate the disk block address of the 
desired program or data file. 

DELSW — Set by LETSR of DCTL to point to the re- 
quired entry in LET/FLET minus one word. 
Actually contains a value somewhere in the buffer 
LETAR. Used by DMPLT when dumping the 
entry point(s) or name of a single program. Used 
by DELETE to point to an entry in LET/FLET 
that is to be deleted. Used by STORE to point to 
an entry in LET/FLET where the entry point(s) 
is to be inserted. 

DFNSW — Set by DFCTL of DCTL to indicate a 
DEFINE FDKED AREA operation. Used by 
FRLAB of DCTL to bypass the decoding of the 
FROM field. 

DKSAD — Set by DUP30 and DUP34 of DUPCO to 
indicate the sector address (without a logical drive 
code) of the current GET or PUT operation. 

DUMPP — Two words located on even boundary, set 
by all DUP phases requiring special monitoring 
dumps. Used by MDUMP of DUPCO to specify 
lower and upper limits to be dumped to the 
printer. 



FRWS — Set non-zero by SC130 if the FROM field 
is Working Storage. Used by DCTL for functional 
flow control and error checking. 

FXSW — Set non-zero by SC130 or SC170 of DCTL 
when either the FROM or the TO field, respec- 
tively, of the DUP control record specifies the 
Fixed Area or when the control record specifies 
DEFINE FIXED AREA. Used by DCTL for error 
checking and functional flow control. Used by 
DFINE, STORE and DUMP for functional flow 
control. 

FORSW — Set non-zero by DFCTL of DCTL when a 
DEFINE control record indicates that the 
FORTRAN Compiler is to be deleted from the 
master cartridge. Used by DFINE for functional 
flow control. 

HOLSW ~ Set non-zero by DCTL when a 

STOREDATA or a DUMPDATA control record 
contains an H in column 11. Used by STORE and 
DUMP to allow data movement without any con- 
version for the I/O devices, i. e. , 1 word to 1 col- 
umn or 1 frame. 

IOSW — Set non-zero by either SC130 or SC170 of 
DCTL when any I/O device is specified in the 
FROM or TO field of the DUP control record. 
Used by DCTL for error checking and functional 
flow control. Used by DUMP and STORE for func- 
tional flow control. 

LETSW — Set positive by LECTL and negative by 
FLCTL of DCTL. Used by DUMPLET to indicate, 
respectively, a full LET/FLET dump or a FLET 
dump only. 

LSTLF — Set by LETSR of DCTL to the sector ad- 
dress (with a logical drive code) of the last LET/ 
FLET sector searched. If only one sector was 
searched, then the address of that sector is 
entered in LSTLF. Used by DUMP and DELETE 
to identify the logical drive required. 

MODSW — Set non-zero if STCTL of DCTL detected 
a STOREMOD function specified by the DUP con- 
trol record. Used by STORE for functional flow 
control. 

NAMSW — Set non-zero by LETSR of DCTL when a 
name is found in LET/FLET that matches the name 
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specified on the DUP control record. Used by 
DCTL for error detection and functional flow con- 
trol. Used by DUMPLET to indicate that only the 
specified LET/FLET entry is to be dumped. 

NEGSW — Set non-zero by DFCTL of DCTL when a 
minus sign is detected in column 31 of a DEFINE 
FIXED AREA control record. Used by DEFINE 
to indicate expansion (zero) or contraction (non- 
zero) of the Fixed Area. 

PGMHL — Word count (length) of the program head- 
er in DSF programs. Set by RDHDR of DCTL to 
the actual program header length. Used by 
STORE to start the placement of the first data 
header in the DSF output. Set by DUMP from the 
program header. Used by STORE to update LET 
with the required number of entries. 

P1442 — Set by CCAT of DUPCO to contain the word 
count and sector address of the System 1442 sub- 
routine. Used by DDUMP to read the System 
1442 subroutine into core when dumping to cards. 

PHD UP — Duplicate of $PHSE to permit printed 
identification of the DUP phase requesting a core 
dump. 

PRPAR — Two words specifying the default limits 
to be dumped by MDUMP. Set by any module of 
DUP desiring to use MDUMP for monitoring DUP's 
status. Usually set to point at key parameters 
and work areas. 

PRSW — Set non-zero by SC170 of DCTL when 
printing is specified as the desired output on the 
DUP control record. Used by DCTL for error de- 
tection and by DUMP for functional flow control. 

PTSW — Set non-zero by SC130 or SC170 when 
paper tape is specified in the FROM or TO field 
of the DUP control record. Used by DCTL for 
error detection and functional flow control. Used 
by DUMP for functional flow control. 

SDWDS — The number of words yet to search in the 
current LET/FLET sector. Set by LETSR of 
DCTL. Used by LETSR of DCTL to test for the 
sector search complete condition. 

STCSW — Set non-zero by ST400 of DCTL when the 
CI is detected in columns 11 and 12 of the 



STOREDATACI control record. Used by STORE 
for functional flow control. 

STSW — Set non-zero by STCTL of DCTL when a 
STORE control record is found. Set by LETSR of 
DCTL to the sector address (with a logical drive 
number) of the LET/FLET sector that contains the 
1DUMY entry that may be replaced by the entry 
for the program to be stored. Used by DCTL for 
functional flow control. Used by STORE to hold 
the LET/FLET sector address and drive code 
prior to inserting the LET/FLET entry for the 
program or data file to be stored. 

TEMPI, TEMP2 — Two words, on an even boundary, 
used by various phases of DUP for miscellaneous 
purposes; i.e. , DUP10 of DUPCO returns four 
EBCDIC characters in TEMPI and TEMP2 as the 
result of converting from binary to hexadecimal 
for purposes of printing. 

TOWS — Set non-zero by SC170 if the TO field is 
Working Storage. Used by DCTL for error check- 
ing and functional flow control. 

T3MSW — Set non-zero by STCTL of DCTL when a 
type 3 or 4 subroutine contains a SOCAL level 
number specified on the DUP control record. Used 
by STORE to modify the type field in the program 
header before storing the subroutine to disk. 

UASW — Set non-zero by SC130 or SC170 of DCTL 
when either the FROM or TO field of the DUP 
control record specifies the User Area. Used by 
DCTL for error checking and functional flow control. 
Used by STORE for functional flow control. 

WSSW — Set non-zero by SC130 or SC170 of DCTL if 
the FROM or TO field of the DUP control record 
specifies Working Storage. Used by DCTL for er- 
ror detection. Used by DUMP and STORE for 
functional flow control. 

XEQSW — Set non-zero by PLUS2 of DCTL when 
calling in the required DUP phase to indicate that 
execution of that phase is desired rather than re- 
turning to PLUS2. Set non-zero by any other DUP 
phase using GET of DUPCO to fetch other phases 
from the disk that are to be executed immediately. 
Used by GET of DUPCO* to determine whether to 
return to the link address (zero) or to execute 
the phase just fetched (non-zero). 



The following switches are initialized to zero by 
CCAT of DUPCO, set by PLUS2 of DCTL, and not 
reset by REST of DUPCO. These are cleared by 
DEXIT before UPCOR is saved in preparation to 
calling the Core Load Builder. This forces DCTL 
on return from the Core Load Builder via PRE CI to 
fetch STORE again as it may have been overlaid by 
the core load being built. 

PH2 — Set non-zero by PLUS2 of DCTL when fetch- 
ing another DUP phase. Used by REST of 
DUPCO: if zero, DCTL must be fetched from 
disk; if non-zero, DCTL has already been 
fetched. 

PH3 — Set non-zero by PLUS2 of DCTL when fetch- 
ing STORE. Used by PLUS2 of DCTL: if zero, 
STORE must be fetched from disk; if non-zero, 
STORE has already been fetched. 

PH4 — Set non-zero by PLUS2 of DCTL when fetch- 
ing DDUMP. Used by PLUS2 of DCTL: if zero, 
DDUMP must be fetched from disk; if non-zero, 
DDUMP has already been fetched. 

IOREQ — Set non-zero by PLUS2 of DCTL in case 
I/O other than from the specified I/O device is 
required (i. e. , Keyboard input when the DUP 
operation is a STORE from cards) . Checked by 
READ of DCTL, and, if still non-zero, the princi- 
pal I/O section (DUP phase 14) is brought back 
into core storage. 



performed during any DUP operation. The con- 
tents of this buffer are in packed EBCDIC. 

IOBLK — Set to the starting address for the I/O 
block portion of UPCOR. The I/O block contains 
one of phases 14, 15, or 16 of DUP. 

SDBUF — Set to the address of the 322-word buffer 
used by the STORE, DDUMP, and DELETE func- 
tions of DUP. This buffer always resides in the 
first 4K of core storage. 

LETAR — Set to the address of the 322-word buffer 
used for the LET/FLET search of DUP. This 
buffer is also a one-sector buffer, or the second 
half of a two-sector buffer used in disk I/O oper- 
ations. 

PEBUF — Set to the address of a buffer used for 
printing the DUP control records (41 words in 
packed EBCDIC) or for printing a LET dump, a 
FLET dump, a program dump, or a data dump 
(61 words in packed EBCDIC). 

THIS — Set to the address of one of two buffers used 
for double buffering of binary input (see NEXT). 
The buffer is 81 words long. 

NEXT — Set to the address of one of two buffers 

used for double buffering of binary input (see THIS). 
The buffer is 81 words long. 



I/O ADDRESSES 



DUP PHASE DESCRIPTIONS 



The following are the I/O addresses required by the 
various DUP phases. They are initialized by CCAT 
of DUPCO when DUP is given control. All except 
THIS and NEXT remain as initially set. All (except 
SDBUF) contain the address of an I/O buffer in 
UPCOR. Thus, the locations of the referenced 
buffers are dependent on core size; in any case, they 
always reside in the upper 4K of core storage. 
SDBUF always resides in the first 4K of core storage. 

CRBUF — Set to the address of an 81-word buffer 
used for reading DUP control records in unpacked 
EBCDIC. 

HDBUF — Set to the address of the buffer used for 
printing the page heading after each page restore 



DUP COMMON (DUPCO) 

• Initializes the I/O phases required by DUP and 
builds the DUP Communications Area (CATCO). 

• Performs functions commonly required by other 
DUP phases. 

The initialization function of DUPCO is performed 
by a subroutine known as CCAT. CCAT resides in an 
area reserved for the System print subroutine, but is 
not overlaid by it until all other initialization has been 
completed. This initialization includes: 

• Construction of the DUP paper tape I/O phase if 
paper tape is attached. This phase is written to 
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the disk area reserved for DUP phase 16 at 
System generation time. 

• Construction of the DUP principal I/O phase 
(without Keyboard). This phase is written to the 
disk area reserved for DUP phase 15 at System 
generation time. 

• Construction of the DUP principal I/O phase. 
This phase is written to the disk area reserved 
for DUP phase 14. This phase is left in core 
storage at IOADR. 

• Initialization of all I/O-dependent switches in 
CATCO. 



4 


Convert binary to EBCDIC 


5 


Print terminal messages 


8 


Read cards 


9 


Read paper tape 


A 


Read Keyboard 



PHID — This subroutine is used to record the phase 
ID of the phase in execution in $PHSE of COMMA. 
It is also used by some DUP phases to illustrate 
the progress of execution from one section of the 
phase to the next. When used for this purpose, 
the high-order digit of $PHSE is changed to the 
appropriate phase section modifier. A core dump 
indicates the last section of the phase that was 
executed. 



• Incorporation of DCOM from the master cartridge 
into CATCO. 

• Incorporation of IOAR headers (word counts and 
sector addresses) of other DUP phases into 
CATCO. This information is supplied to CCAT 
by the System Loader. 

• Initialization of DUP's page heading buffer with 
the heading contained in sector @HDNG. 

• Fetching the System device subroutine for the 
principal print device. This subroutine over- 
lays all but a few words of CCAT. These last 
words are cleared to zero just before branching 
to REST. 

The functions that are common to all DUP phases 
are included in the non-overlaid section of DUPCO. 
These functions are provided by the following sub- 
routines: 

WRTDC — This subroutine is used by STORE, 
DELETE, and DEFINE when it is necessary to 
update DCOM. This includes the updating of 
DCOM on any affected satellite cartridge as well 
as on the master cartridge. 

PHIDM — This subroutine is used to modify the 
next-to-high-order hexadecimal digit of $PHSE 
in COMMA. It is used primarily by DUP's I/O 
functions to illustrate in a core dump the I/O 
operation last performed. The modifications are: 



Read from disk 
Write to disk 



MASK — This subroutine is used to prevent recogni- 
tion of the INTERRUPT REQUEST key. The func- 
tion of this key is to terminate the current job, 
but DUP must not allow this termination to take 
place while in a critical operation. Therefore, 
functions that affect LET/FLET, the User or Fixed 
Area, the CIB, and DCOM delay its recognition 
(STORE, DELETE, DEFINE). 

LEAVE — This subroutine is used to fetch DUP's 
exit phase (DEXIT) to print an error message or 
service a special exit, such as an exit to the Core 
Load Builder (STORE CI function), an exit to the 
ADRWS program (DWADR function) , or an exit to 
the Supervisor following the trapping of a monitor 
control record. 

MDUMP — This subroutine makes selective calls to 
the System Core Dump program. See D UP Diag- 
nostic Aids. 

BINEB — This subroutine is used to convert binary 
numbers to EBCDIC hexadecimal characters. It 
is used primarily to convert a number for inser- 
tion into a phase termination message, e.g. , 
a cartridge ID , a disk block count. 

PRINT — This subroutine is used to print a line on 
the principal print device. It interfaces with the 
System principal print device subroutine. 

PAGE — This subroutine is used to skip to channel 1 
and print a page heading if the principal print de- 
vice is the 1132 or 1403 Printer. If the Console 
Printer is the principal print device, five carriage 
returns are executed before the page heading is 
printed. 
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LINE — This subroutine is used to single -space the 
principal print device. 

REST — This subroutine is used to chain from one 
DUP function to the next. When a function is 
completed without errors, the DUP phase in con- 
trol prints its termination message and exits to 
REST. REST determines whether or not it is 
necessary to bring DCTL into core storage (i. e. , 
core size is 4K, or DCTL has not yet been loaded), 
and, if necessary, fetches DCTL. REST then 
exits to DCTL. 

ENTER — This subroutine is used to save the ac- 
cumulator and extension, the overflow and status 
indicators, as well as XR1, XR2, andXR3. XR1 
is then loaded with the address of the CATCO 
pointer. 

RTURN — This subroutine is used to restore the 
contents of the accumulator and extension, the 
overflow and carry indicators, as well as XR1, 
XR2, and XR3, as saved by the ENTER subrou- 
tine. 

GET — This subroutine is used to read the disk using 
DISKZ. XR3 points to the IOAR header for this 
read when GET is entered, and XR1 contains the 
address of the CATCO pointer. 



• Searches LET for the name specified on STORE, 
DUMP, DUMPLET and DELETE type control 
records. 

• Detects errors in the fields of the DUP control 
records. 

• Calls into core storage the required DUP phase 
and exits to it. 

DCTL remains in core storage during DUP opera- 
tions for configurations of 8K or larger, except dur- 
ing STORECI. DCTL is executed after the REST 
function of DUPCO for each DUP control record as 
well as after PRE CI during the processing of a 
STORECI control record. 

DUP Control (DCTL) may be considered in three 
logical parts: the READ subroutine, the DCTL sub- 
routines, and the PLUS2 subroutine. 



READ Subroutine 

This is the entry point into DCTL. 
following functions: 



It performs the 



• Reads and prints DUP control records. 

• Flushes invalid DUP subjobs. 



PUT — This subroutine is used to write to the disk 
using DISKZ. XR1 and XR3 are initialized in the 
same manner as described for the GET subrou- 
tine. Some error checking is done of the word 
count and sector address in the case of GET and 
PUT. No check is made in GET or PUT as to the 
validity of the logical drive code associated with 
the sector address. GET and PUT assume the 
proper logical drive code has been included with 
the sector address. 



Errors Detected 



• Checks for a monitor control record and exits 
when one is detected. 

• Ensures that the required DUP I/O subroutine 
set is in core storage. 

• Decodes the function field of the DUP control 
record into the various DUP types. 

• Goes to one of the subroutines in the second logical 
part of DCTL to continue the decoding and process- 
ing of the specified type of DUP control record as 
follows: 



The following DUP errors are detected in DUPCO by 
the GET and PUT subroutines: D92 and D93. 



DUP CONTROL (DCTL) 

• Reads, prints and decodes DUP control records. 

• Sets switches in CATCO to reflect the parameters 
specified on the DUP control record. 



Control Record 

* STORE 

*DUMP 

*DUMPDATA 

*DUMPLET 

*DUMPFLET 

*DELETE 

*DEFINE 

*DWADR 



Subroutine Called 

STCTL 
DUCTL 
DACTL 
LECTL 
FLCTL 
DLCTL 
DFCTL 
WACTL 
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DCTL Subroutines 



Buffers Used By DCTL 



These subroutines make up the second logical part 
of DCTL. These subroutines perform the following 
functions for their particular control record type. 

• Decode the balance of the Function field as 
required. 

• Decode the FROM and TO device or area fields. 

• Decode the Name field and perform a LET/FLET 
search if the name is required. 

• Decode the Disk I/O subroutine required with 
STORECI. 

• Decode and record the Count field as required. 
If the operation is a STORECI, FILEQ is brought 
into core storage using the PLUS2 subroutine. 

Decode the FROM and TO Cartridge ID fields. 

• Check the validity of all fields and go to the 
DEXIT phase if any errors are detected. 

• Prevent restricted phases from being called in 
and executed during Temporary mode of operation. 

• Record all required data in CATCO for use by the 
required phase. 

• Go to the appropriate entry point in the PLUS2 
subroutine to fetch and transfer control to the 
DUP phase required to finish the processing of 
the specified DUP subjob. 

PLUS2 Subroutine 

This subroutine is the third logical part of DCTL 
and is the normal-exit subroutine. The various entry 
points to PLUS2 set up respective IOAR headers that 
cause the desired DUP phase to be called into core 
storage and executed. This subroutine performs the 
following functions: 

• Sets up the IOAR header if the required DUP 
phase is not already in core storage. 

• Fetches and/or executes the required DUP phase. 



Control records are read into the area defined by 
CRBUF and converted to packed EBCDIC in the area 
defined by PEBUF. It is from PEBUF that the control 
record is printed by the principal print device sub- 
routine and from which the various fields are decoded. 

Binary records read for STORE are placed into the 
two buffers specified by THIS and NEXT in order to 
process secondary entry points that are on the header 
record. 

LET/FLET sectors are read one at a time into 
the area specified by LETAR to be searched for the 
name specified on the control record. 



Errors Detected 

The following DUP errors are detected in DCTL: 
D01, D02, D03, D05, D06, D12, D13, D14, D15, 
D16, D17, D18, D19, D20, D21, D22, D23, D24, 
D25, D26, andD27. 



STORE 

The STORE phase of DUP resides in the DUP phase 
overlay area if the core size is 4K or 8K, or in the 
overlay area plus 8K if the core size is 16K or 32K. 
This phase is read into core storage the first time 
DCTL recognizes a STORE control record. It re- 
mains in core storage on a 16K or 32K machine as 
long as DUP has control of the system (i. e. ., must be 
brought back into core storage when performing a 
STORECI operation). 

STORE may be considered in seven logical parts, 
each of the following subroutines constituting one 
logical part. 



ST000 Subroutine 



This is the entry point to STORE. It serves as a 
master control for STORE, causing various other 
sections of STORE to be executed as they are required 
for various STORE operations. 
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IOWS Subroutine 



DOLET Subroutine 



This subroutine is executed whenever a STORE op- 
eration is from card or paper tape. It provides the 
following functions: 

• Reads card or paper tape records punched in 
system, data, or core image format. 



This subroutine is executed whenever a STORE oper- 
ation is to the User Area or Fixed Area (except 
STOREMOD). It performs the following functions: 

• Reads the LET or FLET sector to which the entry 
point name (or names) is to be added. 



• Moves data from card or paper tape buffer(s) to a 
disk buffer. 

• Writes the disk buffer to Working Storage (or to 
the User Area or Fixed Area if the operation is a 
STOREDATA or STOREDATACI to the User 
Area or Fixed Area). If the operation is to Work- 
ing Storage, Working Storage of the cartridge de- 
fined as the TO cartridge is used,, By default, 
this is the System Working Storage. 

• Updates the Working Storage disk block count and 
format when operation is to, or through, Working 
Storage. 



WD000 Subroutine 

This subroutine is executed whenever a STORE op- 
eration (except STORE CI, STOREDATA, or 
STOREDATACI from cards or paper tape) is to the 
User Area or the Fixed Area. It performs the fol- 
lowing functions: 

• Adjusts the destination User Area or Fixed Area 
disk block address to the next sector when not at 
a sector boundary, if the operation is a STORE - 
DATA or STOREDATACI. 

• Makes the required disk block adjustment when 
moving a system format program to the User 
Area. 

• Moves data or a program in Working Storage to 
the User Area or the Fixed Area. If the opera- 
tion is from Working Storage, Working Storage 
of the cartridge defined as the FROM cartridge 
is used. By default, this is the System Working 
Storage. If the operation is a STORE from cards 
or paper tape, System Working Storage is used. 



• Checks if a 1DUMY padding entry is required be- 
fore the name is entered when storing data or core 
image programs to the User Area. 

• If a LET sector cannot contain the entry, updates 
the header words of the LET sector and writes the 
completed LET sector to disk. 

• Enters a name (or names) in a LET or FLET sec- 
tor and updates the "words available" entry in 
the header. In the case of a LET sector, the 
terminal 1DUMY disk block size is decremented 
by the number of disk blocks stored. 

• Decrements the 1DUMY size in the FLET sector 
by the number of disk blocks stored. All entries 
that follow this FLET entry are pushed to the right 
by the size of one entry (3 words). 



UPDCM Subroutine 



This subroutine is executed whenever the STORE op- 
eration is to the User Area (except STOREMOD) . It 
updates DCOM as follows: 

• Clears the Working Storage disk block count 
(#WSCT) of the TO drive in DCOM to zero. 

• Puts the disk block address of the end of the User 
Area (plus one disk block) into #ANDU in DCOM 
(in the entry in the drive -dependent parameter for 
the cartridge affected by the STORE operation) . 

• Determines if the STORE operation is in Tempo- 
rary mode; does not put the disk block address 
of the end of the User Area into #BNDU of the TO 
drive during Temporary mode. 

• Updates the base file-protection address in DCOM 
(#FPAD) of the TO drive if the STORE operation 
is not during Temporary mode. 
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SNOFF Subroutine 

This subroutine is executed by all STORE operations. 
It terminates the STORE function as follows. 

• Moves the cartridge ID of the TO drive into the 
STORE terminal message. 

• Moves the disk block address where the data or 
program was stored into the STORE terminal 
message. 

• Moves the disk block count of the program or data 
into the STORE terminal message. 



Fixed Area is the buffer specified by SDBUF. It is 
one sector long if the core size is 4K; otherwise, 
it is seven sectors long. 

LET/FLET sectors are read and written one at 
a time, using the buffer specified by LETAR. 

When STORE reads binary records, it reads them 
into the area specified by THIS and NEXT. If storing 
from cards, double buffering is used; THIS and NEXT 
are each considered to be 80 words long. If storing 
from paper tape, double buffering is not used; THIS 
and NEXT are considered to be an extended buffer, 
large enough to contain the maximum length record 
(108 words). 



• Uses the PRINT subroutine in DUPCO to print 
the terminal message. 

• Exits to the REST subroutine in DUPCO to clear 
the CATCO switches and restore DCTL if it is not 
in core storage. 



Errors Detected 

The following DUP errors are detected in STORE: 
D30, D31, D33, D90, and D93. 



ST700 Subroutine 

This subroutine is executed when performing a 
STORE MOD operation. It performs the following 
functions: 

• Computes the location within the User Area or 
Fixed Area sector at which the old version of the 
program begins. 

• Moves the new version of the program into the 
buffer to replace the old version, one word at a 

time. 



FILEQ 

This phase of DUP is read into core storage by DCTL 
when the Count field (27-30) of the STORECI control 
record is non-zero. The function of FILEQ is to 
process the records following the STORECI control 
record and place the processed records into the 
SCRA for use by the Core Load Builder. Three types 
of STORECI control records are processed by this 
phase; *LOCAL, *NOCAL, and *FILES. FILEQ 
consists of the subroutines LC000, FR000, and 
LF200. 



When an output sector is completed, it is written 
to the User Area or Fixed Area. The next User or 
Fixed Area sector is then read into the buffer to 
allow the word by word replacement to continue. 

The entire STOREMOD process is under control 
of the disk block count. The number of disk blocks 
replaced by the new version is determined by the 
disk block count of the old version, as found in LET/ 
FLET. STOREMOD does not alter this count. 



Buffers Used By STORE 

The disk buffer used for moving data or programs 
between Working Storage and the User Area or the 



LC000 

This subroutine processes * LOCAL and UNOCAL 
control records. A mainline name is not specified 
on these records when they follow the STORECI 
control record; an error is indicated if one is speci- 
fied. Thus, the mainline name is set to blanks. All 
subroutine names specified in *LOCAL or >;< NOCAL 
control records are converted to name code. 

LOCAL/NOCAL information for the core load 
to be built is stored in the SCRA. 

The format of LOCAL/NOCAL information in the 
SCRA is shown on page 22. 



54 



FROOO 



Errors Detected 



This subroutine processes * FILES control records. 
File numbers are converted to binary. File names, 
if specified, are converted to name code; if unspeci- 
fied, the name is set to blanks. Cartridge IDs, if 
specified, are converted to binary; if unspecified, 
the ID is set to zeros. 

FILES information for the core load to be built 
is stored in the SCRA. 

The format of FILES information in the SCRA is 
shown on page 22. 



LF200 

This subroutine provides the exit for FILEQ. When 
all *LOCAL, *NOCAL, and *FILES control records 
have been processed, DCTL is read into core stor- 
age using the GET subroutine in DUPCO with the 
execute switch (XEQSW) set. DCTL begins the 
processing of the header of the mainline program 
that is to be stored in core image format. 



The following DUP errors are detected in FILEQ: 
D41, D42, D43, D44, D45, D46, D47, andD48. 



DDUMP 

The DDUMP phase of DUP resides in part of the 
first or fifth 4K block of core storage, depending 
on whether the core size is 4K, 8K, 16K, or 32K. 
Only on a 32K machine does the DDUMP phase 
reside in the fifth 4K block of core storage. 

This phase is read into core storage the first 
time DCTL recognizes a DUMP control record 
and remains there on a 32K system as long as DUP 
is in control. This phase uses all the subroutines 
in DUPCO that are needed, e.g. , disk reading and 
writing. 



DD000 



This is the mainline of the DDUMP phase. It 
initializes the parameters of the subroutines, sets 
up the IOAR headers for the areas used for input/ 
output, and directs the execution of the subroutines. 



Buffers Used By FILEQ 

The buffer used for writing the processed control 
records to the SCRA is referred to as SCRAB. 
SCRAB is another name for BUF7 , known indirectly 
through CATCO as SDBUF. 



XG000 

This subroutine gets the words from the disk and, if 
the program is in DSF, the words are typed as to 
data, header indicator, or last data word. 
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xwooo 



Errors Detected 



This subroutine places the data or program in 
Working Storage. 



The following DUP error is detected in DDUMP: D50. 



DUMPLET/DUMPFLET 



XF000 

This subroutine formats the data into a system or 
data record to be punched. 



XP000 

This subroutine checksums, unpacks, and punches 
the record formatted by XF000 on either cards or 
paper tape as specified. 



XL000 



This subroutine prints the data or program on the 
principal print device. 



XC000 

This subroutine clears the print area as directed 
by XL000. 

XI000 

This subroutine inserts the data or program words 
into the print area as directed by XL000. 



Buffers Used By DDUMP 

PEBUF — 61-word buffer to hold printed output. 

THIS — 81 -word buffer to read in cards to check 
to see if they are blank. 

NEXT — 111-word buffer from which the output 
is punched. 

LETAR — 322 -word buffer to be used to get data 
from disk. 



This phase of DUP prints the contents of the Location 
Equivalence Table (LET) and/or the Fixed. Area Lo- 
cation Equivalence Table (FLET) in an easily readable 
format on the principal print device. The extent of 
the dump depends on the setting of the following three 
DUPCO switches: 

LETSW . When this switch is positive, both LET 
and FLET are to be dumped; when negative, only 
FLET is dumped. 

DRIVE . When this switch is negative, LET and/ 
or FLET from all cartridges are dumped; when not 
negative, LET and/or FLET is dumped from the 
cartridge specified only. 

NAMSW . If this switch is on, only the LET or 
FLET entry corresponding to the name in #NAME 
is printed. 

One sector of LET/FLET is printed per page. 
Each sector of LET/FLET dumped is preceded by 
two lines of header information. The first header 
line contains the contents of the following locations 
from COMMA/DCOM: #CDDN, $FPAD, #FPAD, 
#CIBA, #ULET, and #FLET. 

Following this line is a second header line that 
reflects information concerning the LET/FLET 
sector being dumped, i.e., the 

sector number (SCTR NO. ), 

User Area/Fixed Area (UA/FXA), 

words available (WORDS AVAIL), and 

chain address (CHAIN ADR). 

Following these two header lines are the LET/ 
FLET entries. Twenty-one lines of entries are 
printed, made up of five entries per line but se- 
quenced by column. 

Once LET and/or FLET have been dumped ac- 
cording to LETSW, DRIVE, and NAMSW, DUMPLET 
prints a terminal message and exits to the REST 
subroutine in DUPCO. 

Buffers Used By DUMPLET/DUMPFLET 

PRNTA — 61-word buffer in UPCOR used for 
printing a line. 



SDBUF — 320-word buffer to be used to place data 
in Working Storage. 



LETAR — 322-word buffer in UPCOR used for 
reading a sector of LET/FLET. 
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DELETE 

The DELETE phase removes programs and data 
files from either the User or Fixed Area, along 
with their corresponding LET/FLET entries. 

DCTL passes control to DELETE after having 
read a DELETE control record and having found 
the specified entry in LET/FLET. This sector 
of LET/FLET is left in the buffer LETAR with 
DELSW pointing to the location previous to the 
specified entry. DBADR is set with the User or 
Fixed Area disk block address of the program to 
be deleted. 

DELETE compresses LET/FLET by the number 
of words made available by the deleted entry. If 
the deletion is to be from the Fixed Area, the 
specified entry is replaced by a 1DUMY entry of 
the same size. If there are adjacent 1DUMY en- 
tries, they are combined to form a single 1DUMY 
entry and FLET is compressed by 0, 3, or 6 words 
depending upon whether there are 0, 1, or 2 adjacent 
1DUMY entries. 

If the deletion is to be from the User Area, the 
amount of the compression of LET is dependent 
upon the number of words made available by the 
specified LET entry. This number varies since 
DSF programs with multiple entries may be stored 
in the User Area. As in the case of FLET, adjacent 
1DUMY entries may cause additional compression 
of 3 or 6 words. 

The packing of LET/FLET begins in the sector 
containing the entry to be deleted and continues 
throughout the remainder of LET/FLET. Since 
multiple entries must reside in a single LET sector, 
they are moved across a LET sector boundary only 
when room exists in the previous sector for all the 
entry points. LET is packed until a DCI program 
or data file is encountered. If a 1DUMY entry pre- 
cedes this entry, the 1DUMY entry is updated to 
reflect the number of disk blocks required to make 
the DCI program or data file start at a sector 
boundary after it is moved the appropriate number 
of sectors. If a 1DUMY entry did not precede the 
DCI program or data file, one of the appropriate 
size is inserted, if required, to sectorize the DCI 
program or data file. The shrinkage or packing 
continues until the last 1DUMY entry of LET is 
found. 

Packing of the User Area begins with the sector 
containing the program to be deleted. Subsequent 
DSF programs are shifted by disk blocks into the 



area made available until a DCI program or data 
file is encountered. If the User Area is being 
packed by an amount equal to or greater than one 
sector, the remaining programs are moved by 
whole sectors. 

After all required disk movement of the specified 
DELETE operation is complete, DELETE prints a 
terminal message to signify completion. 

Buffers Used By DELETE 

LETAR — used for storage of LET/FLET sectors. 
Up to 2 sectors may reside in core storage with 
the addresses of the first word of each saved in 
DE918 and DE919. 

SDBUF — used to process the User Area. Two or 
eight sectors of core storage are used depending 
upon core size. 

Errors Detected 

The following DUP errors are detected in DELETE: 
D70, D71, andD72. 



DEFINE 

To initially provide a Fixed Area on a system 
cartridge or to increase its size, the Core Image 
Buffer (CIB), LET, and the User Area are moved 
toward and partly into Working Storage. Working 
Storage is reduced by the increased size of the 
Fixed Area. The sector address of the CIB is 
updated in DCOM and the Resident Image on the 
updated system cartridge. If a Fixed Area is 
defined on a non-system cartridge, LET is not 
shifted because it precedes the Fixed Area sector 
address. 

To decrease the size of the Fixed Area on a 
system cartridge, the Core Image Buffer (CIB), 
LET, and the User Area are moved away from 
Working Storage and into a part of the existing 
Fixed Area. Working Storage is increased by the 
amount of the decrease in the size of the Fixed Area. 
DCOM and the Resident Image on the updated 
system cartridge are updated with the new sector 
address of the CIB. If the size of the Fixed Area 
is decreased on a non-system cartridge, LET is not 
shifted, as it precedes the Fixed Area sector address. 
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To delete the FORTRAN Compiler and/or the 
Assembler Program from a system cartridge, all 
succeeding programs and special purpose areas on 
the disk are moved away from Working Storage 
toward the voided area. Working Storage is in- 
creased by the size of the voided program(s). 

Once the FORTRAN Compiler and/or the Assem- 
bler Program have been eliminated, neither can be 
restored without an initial load of the disk cartridge, 
including all the programs in the User or Fixed Area. 

DEFINE determines if a system or non-system 
cartridge is being processed by testing the cartridge 
E) sector for the presence of the version and modi- 
fication level number, which is zero on non-system 
cartridges. 

If the FORTRAN Compiler and/or the Assembler 
Program are deleted, all SLET entries for that 
program(s) are cleared to zero. SLET is also 
revised to reflect the new sector addresses of 
those programs that are shifted. 

All entries in the Reload Table indicating SLET 
lookups requested by the deleted program(s) are 
removed and the remaining Reload Table entries are 
packed together. The revised Reload Table is then 
reprocessed to generate new sector addresses where 
necessary in the monitor system programs. 



Buffers Used By DEFINE 
LETAR — a disk I/O buffer. 
SDBUF — a disk I/O buffer. 



Switches and Indicators 

FORSW — non-zero when the FORTRAN Compiler 
is to be deleted. 

ASMSW — non-zero when the Assembler Program 
is to be deleted. 

FXSW — non-zero when the Fixed Area is to be 
defined or modified. 

DATSW — indicates the disk block adjustment of 
the Fixed Area. 

NEGSW — non-zero when the Fixed Area is to be 
decreased. 



Errors Detected 

The following DUP errors are detected in DEFINE: 
D80, D81, D82, D83, D84, D85, and D86. 



DEXIT 

This phase is brought into core storage and executed 
by the LEAVE subroutine in DUPCO. DEXIT per- 
forms the following functions: 

• Prints DUP error messages 

• Traps monitor control records and exits to the 
Supervisor 

• Links to the System Library program ADRWS 
for DWADR 

• Passes control to the Core Load Builder for 
STORECI 

• Returns control to MODIF when a modification 
includes changes to the System Library. 

• Exits to the Supervisor upon recognition of the 
INTERRUPT REQUEST key interrupt. 

DEXIT is called with an indirect branch via 
LEAVE. Following the branch instruction is a 
parameter that specifies the function to be per- 
formed by DEXIT. 

If the parameter is a positive integer, DEXIT 
prints a DUP error message. The message printed 
corresponds to the integer parameter. 

If the parameter is zero, DEXIT moves a trapped 
monitor control record from the buffer CRBUF to 
the Supervisor buffer @SBFR. $CTSW in COMMA 
is set to minus one (/FFFF) to indicate to the Super- 
visor that the next monitor control record has already 
been read. 

DEXIT checks to see if control should be returned 
to the System Maintenance program, MODIF. If 
#MDF2 in DCOM is non-zero, DEXIT reads DUP 
phase 18 into core storage and transfers to it. This 
phase contains part of MODIF, written on this sector 
when MODIF was last in control. In this manner 
MODIF is able to use DUP to delete an old version 
of a program or subroutine from the System Library, 
and then use DUP to store the new version, 
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If control is not given to MODIF, DEXIT trans- 
fers to $EXIT in the Skeleton Supervisor. 

If the parameter is minus two (-2), the interrupt 
caused by the INTERRUPT REQUEST key is recog- 
nized, causing the Supervisor to read records from 
the principal input device until the next JOB monitor 
control record is encountered. DEXIT exits via the 
$DUMP entry point in the Skeleton Supervisor with 
a dump format code of minus two (-2). 

If the parameter is minus three (-3), DEXIT 
transfers control to the Core Load Builder so that 
the DSF program currently in Working Storage can 
be converted to core image format for the STORE CI 
operation. Before DEXIT transfers control to phase 
0/1 of the Core Load Builder, the area in core 
storage bounded by IOADR and the end of core stor- 
age is written to DUP phase 13 (UPCOR). DUP 
phase 17 (PRE CI) restores this area to core stor- 
age after the DCI program has been moved to the 
User or Fixed Area. 

If the parameter is minus four (-4), DEXIT 
initiates a CALL LINK to the System Library pro- 
gram ADRWS to complete the DUP DWADR oper- 
ation. DEXIT enters the Skeleton Supervisor at 
the $LINK entry point with the name ADRWS speci- 
fied in name code. The ADRWS program initializes 
the Working Storage sector addresses on the 
cartridge whose logical drive code is found in 
#TODR in DCOM. ADRWS causes control to be 
returned to DUP by placing a dummy DUP moni- 
tor control record into the Supervisor buffer (3>SBFR 
before returning control to the Skeleton Supervisor 
via the $EXIT entry point. 

All DEXIT functions write DUP's DCOM buffer to 
sector @DCOM on the master cartridge before 
exiting. 

Buffers Used By DEXIT 

CATCO — used to write DCOM on sector @DCOM of 
the master cartridge. The buffer size is 112 
words. 

IOADR — used to write UPCOR on DUP phase 13. 
The buffer size is approximately 1528 words. 

B — used to read phase 0/1 of the Core Load 
Builder into core storage. This read is exe- 
cuted from core locations 32-39. Approximately 
480 words are read. 



@SBFR - /0140 — used to read the MODIF phase 
(DUP phase 18) into core storage. This read 
is executed from core locations $SCAN-$SCAN+7. 
The number of words read is 320. 



2501/1442 CARD INTERFACE (CFACE) 

This phase serves as an interface between DUP 
programs and the system device subroutine for 
card I/O. CFACE consists of four subroutines; 
they are listed below along with their primary 
functions: 

GETHO — Reads a card and converts from IBM 
Card Code to unpacked EBCDIC. 

GETBI — Reads a binary card. 

PACKB — Converts from card binary (1 column 
per word) to packed binary (4 columns per 3 
words), with checksumming. 

PCHBI — Punches a card from an 80-word buffer. 

The phase has four entry points, one correspond- 
ing to each of the functions listed above. Each sub- 
routine is entered by an indirect BSI instruction to 
the symbolic name listed above. Upon entry to each 
subroutine, the registers and status conditions of 
the calling program are saved using the ENTER 
subroutine in DUPCO. The PHDDM subroutine in 
DUPCO records the phase identification of CFACE. 

Upon completion of the required function and 
prior to returning to the calling program, the orig- 
inal conditions of the calling program are restored 
using the RTURN subroutine in DUPCO. 

GETHO 

This subroutine is used by DCTL to read DUP control 
records. The system device subroutine for the 2501 
or the 1442 is used to read the card. An 81-word 
buffer specified by CRBUF in CATCO is used for card 
input. GETHO examines each card for either //, *S, 
or *D in columns 1 and 2. If this information is not 
found in the first two columns of the card, the sub- 
routine returns immediately to DCTL. In this way 
non-DUP control records can be bypassed at maximum 
card speed without using a double-buffering technique. 
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If //, *S, or *D is found in columns 1 and 2, the 
subroutine loops till the whole card is read, then 
converts it from IBM Card Code to unpacked 
EBCDIC using the system conversion subroutine 
CDCNV. 

GETHO packs the unpacked EBCDIC data from 
the 81 -word input buffer to a 41 -word packed 
buffer specified by PEBUF. 

The subroutine then exits to DCTL. 



GETBI 

This subroutine reads a binary card into an 81 -word 
buffer specified by THIS. The system device sub- 
routine for the 2501 or 1442 is used to read the card. 



PACKB 

This subroutine converts card binary (one word 
per column) in an 81 -word input buffer (NEXT) 
to packed binary (four columns per three words) 
in a 55-word output buffer (NEXT). The packed 
data overlays the unpacked data. 

After packing, the checksum of the 54 words 
is verified. If the checksum is correct, the sub- 
routine returns to the calling program. A check- 
sum error causes an exit to LEAVE in DUPCO 
with an error parameter. 



PEBUF — 41 -word buffer used to hold the packed 
EBCDIC control record, converted from the 
unpacked EBCDIC in CRBUF. 



KEYBOARD INTERFACE (KFACE) 

KFACE serves as an interface for DUP programs 
when the principal input device is the Keyboard. 
KFACE is used by DCTL to read DUP control 
records from the Keyboard. 

The PHIDM subroutine in DUPCO is used to 
record the KFACE phase identification. The ENTER 
subroutine in DUPCO is used to save the conditions 
of the calling program. A control record of up to 
80 characters is read and converted from Keyboard 
code to unpacked EBCDIC by the system device 
subroutine for the Keyboard. 

An EOF character causes the termination of 
input and the filling of the remainder of the buffer 
with blanks or a word count of 80, whichever is first. 

The record is read into the 81-word buffer speci- 
fied by CRBUF in CATCO in unpacked EBCDIC, 
then converted to packed EBCDIC and stored in the 
41-word buffer specified by PEBUF in CATCO. The 
RTURN subroutine in DUPCO is used to restore the 
conditions of the calling program. 



Buffers Used By KFACE 



PCHBI 



CRBUF — 81-word input buffer used to hold a 
control record in unpacked EBCDIC. 



This subroutine, using the system device subrou- 
tine for the 1442, punches a card from an 81-word 
buffer specified by NEXT. 



PEBUF — 41 -word buffer used to hold the packed 
EBCDIC control record, converted from the 
unpacked EBCDIC in CRBUF. 



Buffers Used By CFACE 

THIS — 81-word input buffer used by GETBI for 
reading binary records. 

NEXT — 81-word buffer used by PACKB for pack- 
ing binary records (4 columns per 3 words). 
The packed data overlays the unpacked data. 
Also used by PCHBI for outputting to the punch. 

CRBUF — 81-word input buffer used by GETHO 
for reading control records in unpacked 
EBCDIC. 



1134/1055 PAPER TAPE INTERFACE (PFACE) 

This phase serves as an interface between DUP 
programs and the system device subroutine for 
paper tape I/O. PFACE consists of four subrou- 
tines; they are listed below along with their primary 
functions: 

GETHO — Reads a paper tape record punched in 
PTTC/8 code and converts it to both unpacked 
and packed EBCDIC. 

GETBI — Reads a binary paper tape record. 
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PACKB — Converts from unpacked binary (two 
frames per word) to packed binary, with 
checksumming. 

PCHBI — Punches a binary paper tape record. 

The phase has four entry points, one corre- 
sponding to each of the functions listed above. 
Each subroutine is entered by an indirect BSI 
instruction to the symbolic name listed above. 
Upon entry to each subroutine, the registers 
and status conditions are saved using the ENTER 
subroutine in DUPCO. Another DUPCO subrou- 
tine, PHIDM, modifies the phase identification 
with the PFACE identification. 

Upon completion of the requested function and 
prior to exiting to the calling program, the orig- 
inal conditions of the calling program are restored 
using the RTURN subroutine in DUPCO. 



GETHO 



The word count preceding each binary paper tape 
record is punched into a single frame, and is read 
separately from the body of the record. After the 
word count is read, it is checked for validity. If it is 
valid, it is used to read the record that follows. 
If it is not valid, the next frame is read to deter- 
mine if it is a word count. In this way, delete 
characters and other special codes may appear 
between binary records or between a control record 
and the first binary record. 



PACKB 

This subroutine packs the binary record as read by 
GETBI into normal binary data. The packed data 
overlays the unpacked data- 
After packing, the checksum of the words read 
is verified. If the checksum is correct, the sub- 
routine returns to the calling program. A check- 
sum error causes an exit to LEAVE in DUPCO with 
an error parameter. 



This subroutine is used by DCTL to read DUP 
control records. The system device subroutine 
for the 1134/1055 is used to read the record. An 
81-word buffer specified by CRBUF in CATCO is 
used to contain each record read. All conversion 
from PTTC/8 code to EBCDIC is performed by 
the system device subroutine. When the control 
record has been read, it is converted to packed 
EBCDIC within the 41-word buffer specified by 
PEBUF in CATCO. The subroutine then exits 
to DCTL. 



GETBI 

This subroutine reads a binary paper tape record 
into a 109-word buffer specified by THIS in CATCO. 
The system device subroutine for the 1134/1055 is 
used to read the record. 

Note that THIS and NEXT are reversed for each 
record read when reading binary cards. When 
reading paper tape DCTL places the address of the 
buffer having the lowest core address into THIS, 
since the reading of binary paper tape records 
requires an extended buffer. The system device 
subroutine reads each frame (eight bits of data) 
into one word of the buffer. 



PCHBI 

This subroutine uses the system device subroutine 
for the 1134/1055 to punch a binary paper tape 
record from a 109-word buffer specified by NEXT. 



Buffers Used By PFACE 

THIS — 109-word buffer used by GETBI for reading 
binary paper tape records. 

The two buffers THIS and NEXT, used for 
double buffering when reading binary cards , 
constitute one extended buffer when reading 
binary paper tape records. Double buffering 
is not used for binary paper tape records. 

NEXT — 109-word buffer used by PCHBI for punch- 
ing binary paper tape records, consisting of 
THIS and NEXT taken as consecutive buffers. 

CRBUF — 81 -word input buffer used to hold a control 
record in unpacked EBCDIC. 

PEBUF — 41 -word buffer used to hold the packed 
EBCDIC control record, converted from the 
unpacked EBCDIC in CRBUF. 
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PRE CI 



PC100 



This phase is read into core storage by the Core 
Load Builder after a core load has been built for 
a STORE CI function. This phase resides in the 
DUP overlay area. It moves the core load to the 
User Area or Fixed Area before restoring DUP 
phase 13 (UPCOR). Since UPCOR is not available 
to PRECI, copies of the DUPCO subroutines PHID, 
PHTDM, GET, and PUT have been incorporated 
into PRECI. 

PRECI is composed of five sections or logical 
parts — PC000, PC040, PC100, FC180, and PC240. 



PC000 

This is the entry point to PRECI from the Core 
Load Builder. DCOM from the master cartridge 
is read into PRE CI' s work area, as is the core 
image header from the CIB. If the inhibit DUP 
function switch ($NDUP) has not been set by the 
Core Load Builder, PRECI proceeds. Otherwise, 
the PC240 section is used to exit to DCTL after indi- 
cating an error has occurred. 

DCOM is used to determine the logical drive 
code of the destination drive, as well as the start- 
ing sector address to which the program is to be 
moved,, From the core image header the total 
length of the core load in sectors is determined. 
A check is then made to determine if the program 
can be contained in the User Area or Fixed Area. 
If the core load is too large, the PC240 section is 
used to exit to DCTL after indicating an error has 
occurred. 



PC040 

This section moves LOCAL/SOCAL sectors (if 
any) from Working Storage to their position at the 
end of the core load after it has been moved to the 
User Area or Fixed Area. The Working Storage 
sector address from which the LOCALs/SOCALs 
are moved includes an adjustment for Working 
Storage files when they are present. LOCALs/ 
SOCALs are moved to the User or Fixed Area one 
sector at a time. The number of sectors required 
for Working Storage files and the number of LOCAL/ 
SOCAL sectors are obtained from the core image 
header. 



This section moves that part of the core load (in- 
cluding the core image header) that resides in the 
CIB to its destination in the User Area or Fixed 
Area. The length of the program (in words) and 
the starting address of the core load are used to 
control the number of sectors moved from the CIB 
to the User Area or Fixed Area. The core image 
header also indicates if the core load exceeds the 
4K boundary; i. e. , the core load's load address 
plus the number of words in the core load produces 
a number greater than 4095. 

The core load residing in the CIB is moved to 
the User Area or Fixed Area four sectors at a time. 
This move continues until the CIB sector containing 
that part of the core load that resides at location 
4095 has been moved. 

PC180 

This section moves that part of the core load that 
resides in core storage above location 4095 to the 
User or Fixed Area. The last sector of the core 
load written to the User or Fixed Area from the 
CIB is read into core storage so as to be contiguous 
with the part of the core load residing in core, i.e., 
above location 4095. The remainder of the core 
load, starting with the first word read into core 
storage from the User or Fixed Area, is then writ- 
ten to the User or Fixed Area, starting at the sector 
read into core storage. 

PC240 

This section restores DUP phase 13 (UPCOR) , 
DCTL (phase 2), and then exits to DCTL. Before 
exiting to DCTL, however, termination data is 
placed in the DCOM buffer in CATCO, and in CATCO 
itself. The interrupt locations in low core storage 
are restored for DUP operation, and phase switches 
are cleared in order to ensure that DDUMP and 
STORE are reloaded from disk. If any errors have 
been detected during PRECI operation, the DUP 
error message number is communicated back to 
DCTL through CIERR in CATCO. 

Buffers Used By PRECI 

The disk I/O buffer used to move all parts of the 
core load to the User Area or Fixed Area is located 
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at BUF7. All references are direct, rather than 
indirect through SDBUF in CATCO, since UPCOR 
is not in core storage during the operation of PRE CI. 



DUP DIAGNOSTIC AIDS 



GENERAL 

DUP has provided a selective, dynamic dump of 
various core storage areas to facilitate problem 
analysis. The core dumps are under the control 
of column 35 of individual DUP control records. 
In general, to obtain a dump of a particular DUP 
phase, column 35 should contain the phase ID 
number of that phase. If column 35 contains 
zero, all DUP phases associated with the function 
named on the control record yield a core dump, 
starting with the execution of DCTL. The column 
35 codes and the corresponding DUP phase yielding 
core dumps are shown below. 



Code in column 35 



Phase(s) dumped 

All associated phases, starting 

with DCTL 
DCTL 
STORE 
FILEQ 
DDUMP 
DUMPLET 
DELETE 
DEXIT 



The core dumps include the following: 

Disk I/O Areas — The buffer area used for the 
disk I/O operation, including the area into 
which DUP phases are read, is dumped. The 
number of words dumped is dependent on the 
number of words read or written. 

Buffer Areas — The buffers between BUF4 and 
PRPNT are dumped in DCTL execution. This 
dump occurs when the LET search begins, 
when the LET search on one cartridge is 
complete and the next cartridge LET search 
begins, and before the required DUP phase 
(STORE, DUMP, or DELETE) is read. 



CATCO — This area of core storage is dumped in 
conjunction with any dump mentioned above. 

If a dump (or dumps) is desired during CCAT 
execution, the next to the last card (i. e. , the last 
type A card) of DUPCO should be removed before 
reloading this phase with a System Loader reload 
function. This change in DUPCO causes all possible 
core dumps within DUP to occur regardless of the 
contents of column 35 in any DUP control record. 

Core dumps are not allowed when the DEFINE or 
PRE CI phase is in execution. The System Core 
Dump program uses the CIB to save the contents of 
core storage, and, since the CIB moves during a 
DEFINE operation and the core load to be stored by 
PRE CI is in the CIB, serious errors occur if core 
dumps are taken when executing either DEFINE or 
PRE CI. 



PRE CI 

When PRE CI is entered from the Core Load Builder, 
the phase identification word in COMMA ($PHSE) is 
initially set to /0011 by the PRTDP subroutine in 
PRECI. As each subroutine of PRECI is executed, 
$PHSE is modified by PHIDP as follows: 

Subroutine in execution Contents of $PHSE 



PC 040 
PC100 
PC180 
PC240 



/1011 
/2011 
/3011 
/4011 



In addition, the second hexadecimal digit of $PHSE 
is modified by the IDMP subroutine in PRECI each 
time a disk I/O operation is performed. 



Digit 2 of $PHSE 

1 

2 



Disk I/O Operation 

Read from Disk 
Write to Disk 



STORE 

When STORE is entered from DUP control, the 
phase identification word in COMMA ($PHSE) is 
initially set to /0003 by the PHDD subroutine in 
DUPCO. As each subroutine of STORE is exe- 
cuted, $PHSE is modified by PHID as follows: 
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Subroutine in execution Contents of $PHSE 



IOWS 

WD000 

DOLET 

UPDCM 

ST700 

SNOFF 



/1003 
/2003 
/3003 
/4003 
/5003 
/6003 



In addition, the second hexadecimal digit of 
the phase identification is modified by the PHEDM 



subroutine in DUPCO each time an I/O operation 
is performed. 



Digit 2 of $PHSE 



I/O operation 

Read from Disk 

Write to Disk 

Convert Binary to EBCDIC 

Print Terminal Message 

Read Binary Cards 

Read Binary Paper Tape 
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SECTION 10. ASSEMBLER PROGRAM 



FLOWCHARTS 




General: 


ASM01 


Phase 0: 


ASM 02 


Phase 1: 


ASM03 


Phase 1A: 


ASM04 


Phase 2: 


ASM05 


Phase 2A: 


ASM06 


Phase 3: 


ASM07 


Phase 4: 


ASM08 


Phase 5: 


ASM 09 


Phase 6: 


ASM 10 


Phase 7: 


ASM 11 


Phase 7A: 


ASM12 


Phase 8: 


ASM 13 


Phase 8A: 


ASM14 


Phase 9: 


ASM15-ASM17 


Phase 10: 


ASM18 


Phase 10A: 


ASM 19 


Phase 11: 


ASM20 


Phase 12: 


ASM21 


ERMSG: 


ASM22 


@ARCV 


ASM23 


@APCV: 


ASM24 



The Assembler Program is designed to translate the 
statements of a source program written in 1130 
Assembler Language into a format that may be 
dumped and/or stored by DUP or executed directly 
from Working Storage. 

Basically, the functions of the Assembler are: 

1. Convert the mnemonic to machine language 
(except for Assembler control records) . 

2. Assign addresses to statement labels. 

3. Insert the format and index register bits into 
the instruction, if applicable. 

4. Convert the instruction operands to addresses 
or data. 



INTRODUCTION 



The Assembler Program is structurally divided into 
two parts, the resident portion and the overlay por- 
tion. The resident portion consists of the Assembler 
Communications Area (ASCOM), part of phase 0, 



phase 9, and the phase 9 Communications Area 
(PHSCO). All of the other phases are called into 
core storage as overlays. 

The Assembler Program is functionally divided 
into two parts, pass 1 and pass 2. The source pro- 
gram is read and processed, one statement at a 
time, during each of the two passes. During pass 1, 
the source program is read into core storage from 
the principal I/O device. Unless the user specifies 
by control record that two-pass mode is in effect, 
the source program is stored on the disk, from 
which it is reentered for pass 2 processing. If two- 
pass mode is specified or required, the source pro- 
gram is reentered via the principal I/O device for 
pass 2 processing. (If a list deck or paper tape 
object program is desired, the assembly must be 
made in two-pass mode.) 



PROGRAM OPERATION 



When the Monitor Control Record Analyzer detects 
an ASM monitor control record, it reads the first 
sector of the Assembler Program (phase 0) into 
core storage and transfers control to it. 

Phase reads into core storage all the subrou- 
tines required during assembly processing for I/O, 
and phase 9. The word counts and sector addresses 
of all the buffers and major overlay phases are init- 
ialized in ASCOM and in phase 9, and the boundary 
conditions are set for the Symbol Table. Phase 1 
is then fetched and control is passed to it. 

Phase 1 reads and analyzes control records, set- 
ting the appropriate switches in ASCOM for the options 
specified. Upon detection of the first non-control 
record, phase 1A is fetched and given control. 

Phase 1A initializes the core addresses for the 
buffers, then fetches and transfers control to phase 
2 to start statement processing. 

Statement processing is performed by an op code 
search in phase 9 and a transfer through a branch 
table (that precedes every major overlay) to the 
overlay phase currently in core storage. If the re- 
quired overlay phase is in core storage, execution 
of the phase proceeds. If it is not in core storage, 
the branch table causes a return to phase 9 to fetch 
the required overlay phase. The op code search is 
performed again and control is passed to the overlay 
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phase. When the overlay phase completes the nec- 
essary processing, another record is read and the 
entire process is repeated. 

All overlays exit by branching to either the 
LDLBL or the PALBL subroutines within phase 9 and 
then to STRT9 (the op code search). A branch is 
taken to LDLBL when the statement just processed 
is permitted to have a label. A branch is taken to 
PALBL when a label is not permitted or is to be ig- 
nored. Both LDLBL and PALBL branch to the 
RDCRD subroutine (within phase 9) to read the next 
record just prior to their return to the overlay phase 
that called them. 



ASSEMBLER COMMUNICATIONS AREA 

The Communications Area (ASCOM) consists of all 
the indicators and switches referenced by more than 
one phase of the Assembler Program. All communi- 
cation between phases is done through ASCOM. 
ASCOM resides in core storage following DISKZ and 
preceding the Overlay Area. 

Refer to the program listings for details regarding 
the contents of ASCOM. 



OVERLAY AREA 

The Overlay Area is the area in core storage into 
which the statement processing (overlay) phases are 
loaded as required. Phase is initially loaded into 
this area by the Monitor Control Record Analyzer 
(see S ection 6. Supervisor ). Phases 1, 1A, and 2 
are sequentially loaded into this area at the start of 
passes 1 and 2. Phases 2A, 5, 6, 7, 7A, 8, 8A, 
@ARCV, and @APCV are loaded into this area during 
passes 1 and 2 as they are required to process 
specific mnemonics and constants, to handle output 
options, etc. Phase 12 is loaded into this area when 
the END statement is encountered in passes 1 and 2. 
Phase 4 is loaded into this area at the completion of 
pass 2. Phases 3, 9, 10, 10A, 11, and ERMSG 
are not loaded into the Overlay Area. 

The Overlay Area resides in core storage follow- 
ing ASCOM and preceding phase 9. 

SYMBOL TABLE 



in the Symbol Table for each valid symbol defined 
in the source program. Each entry in the Symbol 
Table consists of three words. The first word con- 
tains the value of the symbol. Words 2 and 3 contain 
the symbol itself in name code. The following 
example shows the conversion of the symbol 'START' 
to name code for a Symbol Table entry: 



Symbol Table Entry 



|o,o|i,o|o,0|i,0|i,o|o,0|i.i|0.0|0,0|0.i|O.M'.P|°.'|'. l .°l'.M 



Input EBCDIC EBCDIC 

Character (hexa d ecimal ) (binary) 

5 E2 lljlO 0010 

T E3 ll'lO 0011 

A CI II |00 0001 

R D9 1 1 ; 01 1001 

T E3 Hi 10 0011 



*Digit 1 varies depending on the settings of the Relocation mode and 
Multiply-defined indicators. 



The Symbol Table is built starting at the high- 
addressed end of core storage. Entries are added 
to the Symbol Table (see below) until its lower limit, 
the end of the principal print device subroutine, is 
reached. If symbols are added to the Symbol Table 
after the in-core Symbol Table has been filled (i. e. , 
the lower limit has been reached), the overflow 
Symbol Table is saved, one sector at a time, in 
Working Storage on the disk. Note that Symbol 
Table overflow is possible only if the Assembler 
control record *OVERFLOW SECTORS reserving 
the required sectors on disk is present in the 
source program; otherwise, the assembly is ter- 
minated at the point of Symbol Table overflow. 



Third Entry Second Entry 



First Entry 



Symbol 

Value Symbol Name 



' ' I I L 



Low 
Core 



High T 
Core 



As the source program is read and processed in 
pass 1, the Symbol Table is built. An entry is made 



As the source program is again read and proc- 
essed in pass 2, the Symbol Table is searched each 
time a reference to a symbol is encountered. The 
in-core Symbol Table is searched first. If the sym- 
bol is not found in the in-core Symbol Table and 



66 



Symbol Table overflow has been written on disk, 
Phase 10A is fetched into core storage to perform 
the search of the overflow sectors. 

A binary search technique is used in the Symbol 
Table search. 



INTERMEDIATE I/O 



During pass 1 of an assembly made in one-pass 
mode the source program statements are saved on 
disk for input to pass 2. Each source statement is 
saved starting at column 21 and ending with the 
rightmost non-blank column. As saved on disk each 
statement consists of a prefix word containing the 
number of words up to and including the prefix word 
for the following statement and the source statement 
packed two EBCDIC characters per word. 

The intermediate I/O is written on disk in Working 
Storage, starting at the first sector of Working 
Storage if no OVERFLOW SECTORS were specified, 
or starting at the first sector following the last sec- 
tor of Symbol Table overflow. 

If a LIST Assembler control record is not present 
in the source program, comments statements are not 
saved in the intermediate I/O. 

During pass 2 of an assembly in one-pass mode, 
the intermediate I/O is read into core storage, one 
sector at a time. The source statements are unpacked 
and placed into the two I/O buffers such that they are 
indistinguishable from statements read from the prin- 
cipal I/O device. 



DOUBLE-BUFFERING 



All card, paper tape, or Keyboard input to the 
Assembler Program is double-buffered, with one 
exception; if the assembly is being made in two-pass 
mode and the LIST DECK or LIST DECK E option has 
been specified, input during pass 2 is single-buffered 
to facilitate punching. 

The Assembler Program uses two 80-word buffers 
for double-buffering. While a record is being read 
into one buffer, the record in the other buffer is being 
converted and processed. 

Two locations in ASCOM are used to point to the 
two input buffers. One location (RDBFR) always con- 
tains the address of the buffer in which a record is 
being processed. The other location (RDBFR+1) 
always contains the address of\the buffer into which 
a record is being read. The RDCRD subroutine in 
phase 9, which interfaces with the principal I/O de- 
vice subroutine, exchanges the buffer addresses in 
RDBFR and RDBFR+1 after each record is read. 



PHASE DESCRIPTIONS 



PHASE 



Phase serves as the Assembler Program's loader. 
First, the Communications Area (ASCOM) is initial- 
ized by phase 0, and the required I/O device subrou- 
tines are fetched into core storage. Phase 9, the 
resident portion of the Assembler Program, is also 
fetched into core storage. Phase initializes the 
sector addresses and word counts of the various 
buffers utilized by the Assembler Program, and the 
boundary conditions for the System Symbol Table 
are established. Phase then fetches phase 1 into 
the overlay area and transfers control to it. 

The switches $NDUP and $NXEQ (in COMMA) are 
set non-zero to inhibit program execution and/or 
DUP functions in the event the assembly is termina- 
ted before completion. 

A Master Overlay Control subroutine (P0130), the 
subroutine interfacing with DISKZ (DISK1) , and the 
index register restoring subroutines (STXRS and 
LDXRS) are part of phase and remain in core 
storage during the entire assembly; the rest of phase 
is overlaid by phase 1. The Master Overlay Control 
subroutine performs the fetching of all the overlay 
phases and transfers control to the phase just read 
into core storage. 

PHASE 1 

Phase 1 reads, analyzes, and lists the Assembler 
control records. As each control record is analyzed, 
the various options specified by the control record 
are indicated in the Assembler Program's Communi- 
cations Area (ASCOM). When the first non-control- 
type record is encountered, phase 1 transfers to the 
Master Overlay Control subroutine to fetch phase 1A 
and transfer control to it. 

PHASE 1A 

Phase 1A determines the address of the DSF buffer 
and initializes its IOAR header information in the 
Assembler Program's Communications Area 
(ASCOM). If the principal input device is either the 
1134 Paper Tape Reader or the Keyboard, the cur- 
rent record is moved over 20 positions to the right 
and the read-in address is set for position 21 of the 
I/O area. 

The number of overflow sectors assigned is 
checked for a maximum of 32 and the adjusted Work- 
ing Storage boundary for the disk output of the source 
and object programs is initialized. Phase 1A then 
transfers control to the Master Overlay Control sub- 
routine to fetch phase 2, which begins statement 
processing. 
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PHASE 2 

Phase 2 handles the processing of all ENT, ISS, 
LIBR, ABS, EPR, SPR, ILS, and FILE statements. 
These statements are header mnemonics and must 
appear as the first non- control-type statements if 
they are included in the source program . For this 
reason phase 2 is the first overlay phase loaded into 
core storage to begin statement processing. As each 
particular header mnemonic is processed, the nec- 
essary indicators are set in the Assembler Program's 
Communications Area (ASCOM). The ordering and 
compatibility of the various header mnemonics is 
checked, and the program header record information 
is built and saved in ASCOM. When a mnemonic not 
handled by phase 2 is detected, control is transferred 
to the op code search (STRT9) in phase 9. 



PHASE 2A 

Phase 2A is called into core storage when a FILE 
statement is detected by phase 2. Phase 2A is loaded 
by a flipper routine within phase 2 and overlays part 
of phase 2. Phase 2A obtains the file information 
from the FILE statement and builds the 7-word 
DEFINE FILE Table. At the completion of phase 2A 
processing, control is returned to the flipper routine 
in phase 2. The flipper routine restores the over- 
laid portion of phase 2 and branches to the op code 
search (STRT9) in phase 9. 



DCOM of the master cartridge, and DCOM of the 
cartridge defined to contain System Working Storage 
is updated as follows: 

• The first entry point name of a Type 3, 4, 5, or 
6 subroutine is placed into the two words speci- 
fied by *NAME, in internal 1130 NAME code. 

• The execution address (or first entry point 
address) is placed in # ENTY. 

• The length of the program in disk blocks is 
placed in one word of the # WSCT quintuple 
corresponding to the logical drive that contains 
System Working Storage. 

• A zero is placed in one word of the # FMAT 
quintuple corresponding to the logical drive 
that contains System Working Storage to indi- 
cate that this Working Storage contains DSF. 



The last record read by the Assembler Program, 
the record following the END statement, is moved 
to the Supervisor buffer. 



In terminating the assembly, phase 4 prints four 
sign- off messages: 



PHASE 3 

Phase 3 is called into core storage as part 1 of the 
Assembler Program's exit to the Supervisor. Due 
to the size of phase 3, it overlays part of phase 9 
instead of the Overlay Area. 

The options of printing, punching, or saving the 
Symbol Table, as requested by the user on Assembler 
control records, are performed. At the completion 
of the Symbol Table options processing, phase 4 is 
fetched into core storage and control is transferred 
to it. 



1. The number of errors flagged in the assembly 

2. The number of symbols defined 

3. The number of overflow sectors specified 

4. The number of overflow sectors required 



Phase 4 then exits to the Skeleton Supervisor at the 
$EXIT entry point. 



PHASE 4 

Phase 4 performs the final processing for the Assem- 
bler Program and is called into core storage by 
phase 3. If overflow sectors were specified by 
Assembler control record, and if Symbol Table over- 
flow occurred in assembling the program, the object 
program, which is residing on the disk, is moved 
back to the sector boundary at the start of Working 
Storage. 



PHASE 5 

Phase 5 is called into core storage to process HDNG, 
ORG, BSS, BES, EQU, LIST, EJCT, or SPAC 
statements., These mnemonics are all non-imperative 
type statements requiring similar processing and 
are all grouped, therefore, in the same overlay 
phase. 
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PHASE 6 

Phase 6 processes all imperative instruetions and 
the DC statement. Since these mnemonics are used 
most frequently, the processing for them was 
grouped into one overlay phase. 



PHASE 7 

The two mnemonics processed by phase 7 are 
XFLC and DEC. The conversion of the data in the 
statement operands to binary is handled in phase 
7A. Upon completion of the conversion, the data is 
formatted into the appropriate floating, fixed, or 
decimal format. 



scans and evaluates the operand field, one character 
at a time. The conversion subroutine contains a 
table of packed Console Printer codes and a table of 
packed 1403 Printer codes. The conversion is per- 
formed using an algorithm. 



PHASE 9 

The phase 9 communications area (PHSCO) consists 
of the entry addresses of the common subroutines 
within phase 9. Immediately following PHSCO is the 
op code search. 



STRT9 



PHASE 7A 

Phase 7A is fetched into core storage by a flipper 
routine within phase 7. Phase 7A converts the man- 
tissa of a decimal integer, a fixed- or floating-point 
number to the binary equivalent. 

Phase 7A contains a scanning process that con- 
verts the operand to its binary equivalent and a post- 
scanning process that converts from powers of 10 
to powers of 2. 

The converted decimal data is saved in a buffer 
that is part of the flipper routine. When the conver- 
sion is completed, phase 7A returns to the flipper 
routine that restores phase 7 and transfers control 
to it. 



The op code obtained from the input record is saved 
in ASCOM. All possible op codes are resident in a 
table, which has for each op code a two-word indica- 
tor followed by a corresponding one-word machine 
language mnemonic. The op code search is per- 
formed by means of a table lookup. When a match 
is found, the corresponding machine language 
mnemonic is picked up and saved in OPCNT in 
ASCOM. Bits 13-15 of OPCNT form a branch table 
displacement. Using this displacement, an indirect 
branch is taken thru the table to the overlay prepared 
to process this op code. If the overlay is in core 
storage, execution proceeds. If it is not, a return 
is made to the op code search to fetch the required 
overlay phase into core storage. Control is then 
passed to the overlay and statement processing 
continues. 



PHASE 8 



Phase 8 processes the LIBF, CALL, EXIT, LINK, 
EBC, DSA, and DN statements. The processing of 
the program linking mnemonics — LIBF, CALL, 
EXIT and LINK — is combined with the processing 
of the data definition mnemonics — EBC, DSA, and 
DN — since otherwise they would constitute two 
small phases. This is satisfactory in terms of 
assembly time since EBC, DSA, and DN are not 
frequently used mnemonics. 



BTHEX 

BTHEX is a binary-hexadecimal conversion subrou- 
tine. The binary data is entered in the accumulator 
left-justified, and the hexadecimal output is stored 
by index register 1. The number of characters to be 
converted is in index register 2. 



PHASE 8A 

Phase 8A processes the DMES statement. The DMES 
processing is performed by a scanning subroutine and 
a conversion subroutine. The scanning subroutine 



B4HEX 

The B4HEX subroutine is entered when four hexadec- 
imal output characters are desired. Index register 2 
is set to four and a branch is made to BTHEX. 
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SCAN 

The SCAN subroutine collects the elements of the 
operand field, character by character, performs 
any arithmetic functions necessary, and evaluates 
the operand. 



GTHDG 



to EBCDIC blanks, the input buffer addresses in 
ASCOM are exchanged, and a branch is made to the 
principal input device subroutine to read a record. 
Index register 1 is set to point at the current input 
buffer and control is transferred back to the calling 
program. 

If the record previously read was a monitor con- 
trol record, phase 4 is fetched into core storage and 
control is transferred to it. 



GTHDG is the new page subroutine. Branches are 
made to the principal print subroutine to skip to 
channel 1, and print the heading as specified in the 
last HDNG statement encountered. 



LDLBL 

The LDLBL subroutine scans the label field of the 
statement. In pass 1, valid labels are added to the 
Symbol Table if they do not already appear mere. 
The record is saved in the intermediate output buffer 
by INT1 and a branch is made to read the next record 
(RDCRD). When the next record is in core, a check 
is made for the last card. If the last card has been 
detected, a branch is made to the principal conver- 
sion routine (CVADR), and control is returned to 
the calling program. 

In pass 2, the record is listed, if a listing has 
been requested or the record is in error. The next 
record is fetched and control is returned to the 
calling program. 



PALBL 

The PALBL subroutine is a secondary entry to the 
LDLBL subroutine. PALBL is entered when a label 
is not permitted on a statement being processed. 



GETER 

A branch is made to GETER when an error occurs 
during the assembly. GETER fetches the error mes- 
sage phase (ERMSG) into the first disk buffer (BUFI). 



P9MVE 

The P9MVE subroutine moves the input record from 
the input buffer to the print buffer. As it moves the 
record, each character is checked for validity. At 
the completion of the move, a branch is made to the 
principal print device subroutine to list the record 
and control is returned to the calling program. 



INT1 

INT1 is the subroutine used in pass 1 to pack the in- 
put record into two EBCDIC characters per word and 
save it in the intermediate output buffer. INT1 is 
overlaid by phase 11 for pass 2 processing. INT2 is 
the entry address for phase 11 during pass 2. 



PHASE 10 

Phase 10 consists of two subroutines: DTHDR and 
WRDFO. Phase 10 is fetched by phase 12 in pass 2 
processing. Phase 10 overlays that section of phase 
9 dealing with the inserting of labels into the Symbol 
Table. 



DTHDR 

DTHDR enters a data header into the object program 
output in disk system format (DSF) when required and 
completes the previous data header. 



WRDFO 



RDCRD 

RDCRD is the interface subroutine for the principal 
input device subroutine. The input buffer is cleared 



This subroutine writes one sector of disk system for- 
mat (DSF) output when the DSF buffer is full. After the 
sector is written, those words past the 320th word of 
the buffer are moved back to the beginning of the buffer. 
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In the event the buffer is not full and WRDFO is 
entered from phase 12 END statement processing, 
the DSF buffer is written to Working Storage. 



PHASE 10A 

Phase 10A is fetched into core storage whenever 
necessary to handle Symbol Table overflow. When a 
symbol is to be added to an overflow sector in pass 1 
or when the overflow sectors are to be searched 
for a symbol in pass 2, phase 10A is called. Phase 
10A overlays the INT1 subroutine in phase 9 when 
called during pass 1; it overlays phase 11 (the INT2 
subroutine) when called in pass 2 of an assembly in 
one-pass mode. 



PHASE 11 

Phase 11 is fetched into core storage in pass 1 during 
phase 12 END statement processing if the assembly 
is in one-pass mode. The function of phase 11 is to 
read the source statements from the disk during 
pass 2. The source statements saved in pass 1 are 
read back onto core storage in pass 2 in such a way 
that they are indistinguishable from statements read 
from the principal I/O device. 



PHASE 12 



the source statement buffer. If the source program 
is a type 1 or 2 (a mainline), the execution address, 
i. e. , the END statement operand, is saved in 
ASCOM and in the source statement buffer. The last 
sector of DSF output is written to the disk and the 
disk block count of the program is saved in ASCOM. 
Phase 12 then fetches phase 3 and transfers control 
to it. 



ERMSG 

ERMSG is called by the GETER subroutine within 
phase 9 when an error occurs during the assembly 
process. It is loaded into the first disk buffer (BUFI). 
A list of error messages is contained within ERMSG. 
This list is referenced by index register 2, which 
contains the appropriate error code at the time of 
entry to ERMSG. The error message is printed and 
control is then returned to GETER. 



@ARCV 

The Assembler Program's card conversion subrou- 
tine converts IBM Card Code to EBCDIC on input 
from the 2501 Card Reader or from the 1442 Card 
Read Punch, Models 6 and 7. The conversion is 
handled by a direct table access method, utilizing a 
256 EBCDIC character table. 



In pass 1, phase 12 builds the program header record 
in the DSF buffer. Several counters are reinitialized 
in ASCOM and the buffer pointers are reset for disk 
system format (DSF) output. Phase 10 is fetched 
into core storage. 

If the assembly is in two-pass mode, phase 1 is 
fetched and control is passed to it. If the assembly 
is in one-pass mode, the END statement is saved in 
the intermediate I/O buffer and the buffer is written 
to the disk. Phase 11 is fetched into core storage 
and the first sector of intermediate I/O is read into 
the first disk buffer (BUFI). A branch is then made 
to phase 11 to transfer the first statement from the 
intermediate I/O buffer to the source input buffer. 
Phase 1 is then fetched onto core storage and con- 
trol is transferred to it. 

In pass 2, phase 12 branches to DTHDR to build 
the end-of-program data header. If the source pro- 
gram is a type 3, 4, 5, 6, or 7 (not a mainline), an 
execution address of zero is saved in ASCOM and in 



@APCV 

The Assembler Program's punch conversion subrou- 
tine handles both the conversion and the punching of 
data on card output options. The punch conversion 
subroutine is fetched into the overlay area to per- 
form the LIST DECK and LIST DECK E output 
options. It overlays the op code search (STRT9) 
in phase 9 to perform the PUNCH SYMBOL TABLE 
output option. 



CORE LAYOUT 



Figure 14, panel 1 shows the layout of the contents 
of core storage after phase of the Assembler Pro- 
gram has been fetched and given control by the Mon- 
itor Control Record Analyzer. 

Figure 14, panel 2 shows the layout of the con- 
tents of core storage during pass 1. 
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Figure 14, panel 3 shows the layout of the con- 
tents of core storage during pass 2 of an assembly 
in two-pass mode. 



Figure 14, panel 4 shows the layout of the con- 
tents of core storage during pass 2 of an assembly 
in one-pass mode. 
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Figure 14. Core Layout During Assembler Program Operation 
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SECTION 11. FORTRAN COMPILER 



FLOWCHARTS 
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The FORTRAN Compiler translates source programs 
written in the 1130 Basic FORTRAN IV Language into 
machine language object programs. The compiler 
also provides for the calling of the necessary arith- 
metic, function, conversion, and input/output sub- 
routines during the execution of the object program. 



GENERAL COMPILER DESCRIPTION 



The FORTRAN Compiler consists of 27 sequentially 
executed phases: 

Phases 1 and 2 are initialization and control phases, 
processing the control records and building the 
initial statement string. 



Phases 3 thru 10 are specification phases, process- 
ing the specification statements and other defini- 
tive information and building the basic Symbol 
Table. 

Phases 11 thru 18 are compilation phases, analyzing 
and processing the source statements and re- 
placing them with object coding. 

Phases 19 thru 26 are the output phases. 

Phase 27 is a recovery phase, terminating the com- 
pilation and executing a CALL EXIT. 

Thus, the FORTRAN Compiler is a "phase" 
compiler; the compiler is passed-by the source 
program, which resides in core and is massaged 
into the object program. 



PHASE OBJECTIVES 

The following is a list of the compiler phases by 
number and name, and their major functions: 



Phase 
Number 



Phase Name 



Input 



Classifier 



Check Order/ 

Statement 

Number 



Function 

Process the control 
records; read the 
source statements 
and build the string. 

Determine the state- 
ment type and place 
the type code in the 
ID word. 

Check for the presence 
and sequence of 
SUBROUTINE , 
FUNCTION, Type, 
DIMENSION, COMMON, 
and EQUIVALENCE 
statements; place 
statement numbers in 
the Symbol 
Table. 
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Phase 






Phase 




Number 


Phase Name 
COMMON/SUB- 


Function 
Place COMMON variable 


Number 
11 


Phase Name 


4 


Subscript 




ROUTINE or 


names and dimension in- 




Decomposition 




FUNCTION 


formation in the Symbol 
Table; check for a 
SUBROUTINE or FUNC- 
TION statement and, if 










found, place the name 


12 


A scan I 






and dummy argument 










names in the Symbol 










Table. 







Function 

Calculate the constants 
to be used in subscript 
calculation during exe- 
cution of the object 
program. 

Check the syntax of all 
arithmetic, IF, CALL, 
and statement function 
statements. 



DIMENSION/ Place DIMENSION var- 

REAL, INTEGER, iable names and dimen- 
and EXTERNAL sion information in the 
Symbol Table; indicate 
the appropriate mode 
for REAL and INTEGER 
statement variables. 



Real Constant 



DEFINE FILE, 
CALL LINK, 
and CALL EXIT 



Variable and 

Statement 

Function 



DATA Statement 



10 



FORMAT 



Place the names of real 
constants in the Symbol 
Table. 

Check the syntax of 
DEFINE FILE, CALL 
LINK, CALL EXIT 
statements; determine 
the defined file specifi- 
cations. 

Place the names of 
variables, integer con- 
stants, and statement 
function parameters in 
the Symbol Table. 

Check the syntax of the 
DATA statement, check 
its variables for validity, 
and reformat the state- 
ment. 

Convert FORMAT 
statements into a spec- 
ial form for use by the 
input/output subroutines 
during execution of the 
object program. 



13 Ascan H 



14 DO, CONTINUE, 

etc. 



15 Subscript 

Optimize 



16 Scan 



17 Expander I 



18 Expander H 



Check the syntax of all 
READ, WRITE, FIND, 
and GO TO statements. 

Replace DO statements 
with a loop initializa- 
tion statement and in- 
sert a DO test state- 
ment following the DO 
loop termination state- 
ment; process BACK- 
SPACE, REWIND, 
END FILE, STOP, 
PAUSE, and END 
statements. 

Replace subscript 
expressions with an 
index register tag. 

Change all READ, 
WRITE, GO TO, 
CALL, IF, arithmetic, 
and statement function 
statements into a mod- 
ified form of Polish 
notation. 

Replace READ, WRITE, 
GO TO, and RETURN 
statements with object 
coding. 

Replace CALL, IF, 
arithmetic, and state- 
ment function statements 
with object coding. 
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Phase 
Number Phase Name 



Function 



CORE LAYOUT 



19 



Data Allocation 



20 Compilation 

Errors 



21 



22 



23 



24 



25 



Statement 
Allocation 



List Statement 
Allocation 



List Symbol 
Table 



List Constants 



Output I 



26 



output n 



27 



Recovery 



Allocate a storage area 
for variables in the 
object program. 

List unreferenced 
statement numbers, 
undefined variables, 
and error codes for 
erroneous statements. 

Determine the storage 
allocation for the object 
program coding. 

List the relative state- 
ment number addresses, 
if requested. 

List the subprogram 
names in the Symbol 
Table and the System 
Library subroutine 
names in the string, 
if requested. 

Compute the addresses 
of the constants; list 
the addresses, if 
requested. 

Build the program 
header and data header 
records and place them 
in Working Storage; 
place the real and inte- 
ger constants into 
Working Storage. 

Complete the conver- 
sion of the string to 
object coding and place 
the object program into 
Working Storage. 

Print the compilation 
termination message; 
exit by executing a 
CALL EXIT. 



Figure 15, panel 1 shows the layout of the contents 
of core storage after the Monitor Control Record 
Analyzer has fetched phase 1 of the FORTRAN 
Compiler into core storage and has passed control 
to the control record analyzer portion. The princi- 
pal print and principal input device subroutines 
have been fetched by phase 1. The card input and 
print buffers have been allocated by phase 1. 

Figure 15, panel 2 shows the layout of the con- 
tents of core storage after the control record analy- 
zer portion of phase 1 has passed control to the 
statement input portion. The control record analy- 
zer portion of the phase is overlaid by the input 
statement string. 

Figure 15, panel 3 shows the layout of the con- 
tents of core storage during the execution of 
phases 2 through 18. During these phases the boun- 
dary separating the statement string and Symbol 
Table fluctuates as the string and Symbol Table 
are massaged. 

Figure 15, panels 4 and 5 show the layout of 
the contents of core storage during the execution 
of phases 19 through 24. Panel 4 reflects the 
contents of core storage before any printing has 
been performed in those phases. In panel 5 the 
lower-addressed portion of these phases has been 
overlaid by the print buffer when printing has 
been performed. 

Figure 15, panels 6 and 7 show the layout of 
the contents of core storage during the execution 
of phase 25. Panel 6 reflects the contents of 
core storage before any object coding has been 
generated and written to disk. In panel 7 the 
lower-addressed portion of the phase has been 
overlaid by the disk output buffer when object 
coding has been generated and written to disk. 

Figure 15, panel 8 shows the layout of the 
contents of core storage after control has been 
passed to phase 26. The disk buffer has been 
allocated by phase 26 and is not an overlay. 

Figure 15, panel 9 shows the layout of the 
contents of core storage after control has been 
passed to phase 27. The principal print device 
subroutine has been fetched by the phase. The 
DCOM buffer has also been allocated by the 
phase. 
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Figure 15. Core Layout During FORTRAN Compiler Operation 



FORTRAN COMMUNICATIONS AREA 



The FORTRAN Communications Area consists 
of 16 words of storage where information obtained 



from the FORTRAN control records and compiler- 
generated addresses and indicators are kept. 
This information is available to any phase needing 
it. The contents of the FORTRAN Communications 
Area words are described in Table 3. 
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Table 3. The Contents of the FORTRAN Communications Area 



PHASE AREA 



Word 


Symbolic Name 


Description of Contents 


1 


SOFS 


The address of the start of the string. 


2 


EOFS 


The address of the end of the string. 


3 


SOFST 


The address of the start of the Symbol Table. 


4 


SOFNS 


The address of the start of the non- 
statement-number entries in the Symbol 
Table. 


5 


SOFXT 


Phases 1 -20. The address of the start of 
the Symbol Table entries for SGTs (subscript- 
generated temporary variables). 

Phases 21-25. The work area word count. 


6 


SOFGT 


Phases 1 -20. The address of the start of 
the Symbol Table entries for GTs (generated 
temporary storage locations). 

Phases 21-25. The constant area word 
count. 


7 


EOFST 


The address of the end of the Symbol Table. 


8 


COMON 


Phases 1-19. The address of the next 
available word for COMMON storage. 

Phase 20. The address of the highest - 
addressed word reserved for COMMON 
storage. 

Phase 21. Not used. 

Phases 22-25. Relative entry point. 


9 


CSIZE 


All phases except Phase 20. The 
COMMON area word count. 

Phase 20. The address of the lowest- 
addressed word reserved for COMMON 
storage. 


10 


ERROR 


Bit 15 set to 1 indicates overlap error. 
Bit 14 set to 1 indicates other error. 


11-12 


FNAME 


The program name (obtained from the NAME 
control record, or a SUBROUTINE or 
FUNCTION statement) stored in name code. 


13 


SORF 


Set positive to indicate FUNCTION. 
Set negative to indicate SUBROUTINE. 
indicates mainline. 


14 


CCWD 


Control card word. 

Bit 15 set to 1 indicates Transfer Trace. 
Bit 14 set to 1 indicates Arithmetic Trace. 
Bit 13 set to 1 indicates Extended Precision. 
Bit 12 set to 1 indicates List Symbol Table. 
Bit 11 set to 1 indicates List Subprogram 

Names 
Bit 10 set to 1 indicates List Source Program. 
Bit 9 set to 1 indicates One Word Integers. 


15 


IOCS 


IOCS Control Card Word. 

Bit 15 set to 1 indicates 1442 Card Read 

Punch, Model 6 or 7. 
Bit 14 set to 1 indicates 1134/1055 Paper 

Tape Reader Punch. 
Bit 13 set to 1 indicates Console Printer. 
Bit 12 set to 1 indicates 1403 Printer. 
Bit 11 set to 1 indicates 2501 Card Reader. 
Bit 10 set to 1 indicates Keyboard. 
Bit 9 set to 1 indicates 1442 Card Punch, 

Model 5. 
Bit 8 set to 1 indicates Disk Storage. 
Bit 7 set to 1 indicates 1132 Printer. 
Bit 3 set to 1 indicates 1627 Plotter. 
Bit 1 set to 1 indicates Unformatted Disk 

I/O Area . 


16 


DFCNT 


The number of files defined. 



The Phase Area is the area into which the various 
phases of the compiler are read by the ROL subrou- 
tine. The size of the Phase Area is determined by 
the size of the largest phase of the compiler. 

Each phase, when loaded into the Phase Area, 
overlays the preceding phase. There are two phases, 
however, that are exceptional in that they are loaded 
at some location other than the Phase Area origin. 
The ROL subroutine in phase 1 is loaded into high- 
addressed storage by phase 1 so that it occupies 
initially the position it will occupy throughout the 
compilation. The control record analysis portion 
of phase 1 is loaded into the String Area. This por- 
tion of the phase is in use only until the FORTRAN 
control records have been processed and is overlaid 
by the source statements. Phase 27, the Recovery 
Phase, which is executed after the object program 
has been produced, is also read into the String Area. 



STRING AREA 

During compilation the String Area contains both the 
statement string and the Symbol Table. The state- 
ment string is built by the Input Phase in an ascend- 
ing chain beginning in the low-addressed words of 
the String Area. The Symbol Table is built during 
the compilation process in a descending chain be- 
ginning in the high-addressed words of the String 
Area. 

The statement string expands and contracts as it 
is massaged during the compilation process. The 
Symbol Table expands as items are removed from 
the statement string and added to the Symbol Table. 
In addition, some phases move the entire statement 
string as far as possible toward the Symbol Table. 
The last statement of the string then resides next 
to the last Symbol Table entry. As the phase oper- 
ates on the statement string, now referred to as 
the input string, it is rebuilt in the low-addressed 
end of the String Area. The rebuilt string is refer- 
red to as the output string. This procedure allows 
for expansion of the statement string. 
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If at any time during the compilation an entry 
cannot be made to the statement string or the Symbol 
Table due to the lack of sufficient storage, an overlap 
error condition exists. In the event of such an over- 
lap condition, the remaining compilation is bypassed 
and an error message is printed (see Compilation 
Errors ). Either the size of the source program or 
the number of symbols used must be decreased, or 
the program must be compiled on a machine of larger 
storage capacity. 



SYMBOL TABLE 

The Symbol Table contains entries for variables, 
constants, statement numbers, various compiler- 
generated labels, and compiler-generated temporary 
storage locations. 

The first entry of the Symbol Table occupies the 
three highest-addressed words of the String Area, 
i. e. , the 3 words just below the first word of the 
FORTRAN Communications Area. The second entry 
is positioned in the lower -numbered words adjacent 
to the first entry, etc. 

During the initialization of the Symbol Table in 
phase 1, three words are reserved for the first 
Symbol Table entry. This entry is not made, how- 
ever, until phase 3. From this point the size of the 
Symbol Table varies from phase to phase until it 
achieves its largest size in phase 18. Its size always 
includes the three words reserved for the next 
Symbol Table entry. 

During phases 3 through 18, the Symbol Table con- 
tains variables, constants, and statement numbers. 
Information for these entries has been removed from 
the statement string and has been replaced by the 
address of the ID word of the corresponding Symbol 
Table entry. Also, the Symbol Table contains the 
various compiler-generated labels and temporary 
storage locations used in compilation. 



During the output phases, 19 through 26, these 
entries in the Symbol Table are replaced by object 
program addresses that are inserted into the object 
coding by phase 26. 



Format 

All entries in the Symbol Table consist of three 
words — an ID word and two Name-Data words. 
The entries for dimensioned variables are exception- 
al, however, in that they are six-word entries, the 
additional three words containing the dimension 
information. 

The ID word occupies the lowest-addressed word 
of the three word entry. The Name-Data words 
occupy the two higher-addressed words. 

A typical three-word entry is illustrated in the 
following example of the entry for the integer con- 
stant 290. 



ID Word 



Data Word 1 
2 9 



Data Word 2 
blank blank 



1 1 1 oooooooooooooo |OiiooioniooniO| oooooooooooooooo | 



Lowes t -Add ressed 
Word 



Highest -Addressed 
Word 



Entry in hexadecimal form -E000 65CE 0000 



The entry for the subprogram name COUNT would 
appear as: 



ID Word 



Name Word 1 
C O U 



Name Word 2 
N T 



000000001 0000000 ; 100001 1 0101101 00 1 1 1 00010101 10001 1 1 

Highest-Addressed 
Word 



Lowest-Addressed 
Word 



Entry in hexadecimal form - C080 86B4 C563 
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ID Word 



Table 4. The Contents of the FORTRAN Symbol Table ID Word 



The layout of the Symbol Table ID word is given in 
Table 4. The ID word is formed when the entry is 
placed in the Symbol Table. 



Name -Data Words 



The Name-Data words of Symbol Table entries have 
the following format: 



Word Bit Contents 

1 0, if the following 15 bits contain 

the first half of a constant; 1, if 
the following 15 bits contain any- 
thing other than the first half of a 
constant. 

1-15 First 15 bits of the 30-bit Symbol 
Table entry 

2 Same as bit of word 1 



1-15 Second 15 bits of the 30-bit Symbol 
Table entry 



Bit 
Position 


Status and Meaning 








- Constant 

- Variable 


1 





- Integer 

- Real 


2 




- COMMON 


3-4 


01 
10 
11 


- One dimension 

- Two dimensions 

- Three dimensions 


5 




- Statement function parameter/dummy argument 


6 




- Statement number 


7 




- Statement function name 


8 




- Subprogram name 


9 




- FORMAT statement number 


10 




- Referenced statement number or defined 
variable 


11 




- External 


12 




- Generated temporary storage location (GT) 


13 




- Subscript-generated temporary variable (SGT) 


14 




- Allocated variable 


15 


Not Used 



Three words are always used for the dimension 
information regardless of the number of dimensions. 

For one-dimensional arrays, all three dimension 
words contain the integer constant that specifies the 
dimension of the array. For example, the entry for 
array ARRAY (10) would appear as: 



Dimensioned Entries 



Dimension Information 




Array Name 


, 10 , 10 , 10 


—» r 
ID Word 




1 1 


Lowest- 
Addressed 
Word 






Highest- 
Addressed 
Word 



The Symbol Table entry for a dimensioned variable 
requires six words: two for the array name, one 
for the ID word, and three for the dimension infor- 
mation. The dimension information occupies the 
three lowest-addressed words, the ID word occupies 
the next higher-addressed word, and the Name-Data 
words occupy the two highest-addressed words. 



For two-dimensional arrays, the first (highest- 
addressed) dimension word contains the integer 
constant of the first dimension; the middle and 
last (lowest-addressed) dimension words both 
contain the product of the first and second dimen- 
sion integer constants. Thus, the dimension in- 
formation for array B(5, 15) appears as: 
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Dimension Information 



( 75 , 75 { 5 | IDWord | 



Array Name 



For three-dimensional arrays, the first dimen- 
sion word contains the integer constant of the first 
array dimension; the middle dimension word con- 
tains the product of the first and second dimension 
integer constants; the third dimension word con- 
tains the product of the first, second, and third 
integer constants of the array dimensions. The di- 
mension information for array C(9,9,9) appears as: 



Dimension Information 



Array Name 



729 

I L 



31 9 
J 



ID Word 



STATEMENT STRING 

The source statements are read by the Input Phase, 
converted to EBCDIC, and stored in core storage. 
The first statement is stored starting at $ZEND, and 
each succeeding statement is placed adjacent to the 
previous statement, thus forming the source state- 
ments into a string. The area within which the 
source statements are stored is referred to as the 
String Area. 



ID Word 



For identification purposes , as each statement is 
placed in the String Area, an ID word is added at 
the low-address end of each statement. The ID 
word has the following format: 

Bit Contents 

0-4 Statement type code 

5-13 Statement Norm 

14 Varied; used for interphase 
communication 

15 1, if statement is numbered; otherwise, 

The Norm is the only portion of the ID word com- 
pleted by the Input Phase. The Norm is a count of 



the number of words used to store that statement, 
including the ID word and statement terminator. 

The statement type codes, shown in Table 5, are 
added in the Classifier Phase (except for FORMAT 
statements) . 



Table 5 . FORTRAN Statement ID Word Type Codes 



Code 



00000 
00001 
00010 
00011 
00100 
00101 
00110 
00111 
01000 
01001 
01010 
01011 
01100 
01101 

oino 

01111 
10000 
10001 
10010 
10011 
10100 
10101 
10110 
10111 
11000 
11001 
11010 
11011 
11100 
11101 
11110 

inn 



Statement Types 



Arithmetic 

BACKSPACE 

END 

END FILE 

SUBROUTINE 

REWIND 

CALL 

COMMON 

DIMENSION 

REAL 

INTEGER 

DO 

FORMAT 

FUNCTION 

GO TO 

IF 

RETURN 

WRITE 

READ 

PAUSE 

Error 

EQUIVALENCE 

CONTINUE 

STOP 

DO test 

EXTERNAL 

Statement Function 

Internal Output Format 

CALL LINK, CALL EXIT 

FIND 

DEFINE FILE 

DATA 



80 



Statement Body 

Each statement, after being converted to EBCDIC, 
is packed two EBCDIC characters per word. This 
is the form in which the statements are initially 
added to the statement string. 



is printed and no object program is placed in Working 
Storage. 

Error messages appear in the following format: 

CAA ERROR AT STATEMENT NUMBER 
XXXXX+YYY 



Statement Terminator 

Statements are separated by means of the statement 
terminator character, a semicolon. The statement 
terminator character indicates the end of the state- 
ment body. This character remains in the string 
entry throughout the compilation process for that 
particular statement type. 

All statements in the statement string carry the 
statement terminator except for FORMAT and CON- 
TINUE statements and compiler-generated error 
statements. Error statements inserted into the 
string by the compiler are inserted without the 
terminator character. 



COMPILATION ERRORS 



When an error is detected during the compilation 
process, the statement in error is replaced by an 
appropriate error statement in the statement string. 
Each error statement is added during the phase in 
which the corresponding error is detected and the 
procedure is the same in all phases. 

1. The type code in the erroneous statement's ID 
word is changed to the error type. 

2. The statement body is replaced by the appro- 
priate error number. The statement number, 
if present, is retained in the Symbol Table and 
the Symbol Table address is retained in the 
error statement on the string. 

3. The statement string is closed up, effectively 
deleting the erroneous statement from the state- 
ment string. 

Error statements in the statement string are ex- 
ceptional in that they do not carry the statement 
terminator character (semicolon). 

Error indications are printed at the conclusion of 
compilation. If a compilation error has occurred, 
the message 

OUTPUT HAS BEEN SUPPRESSED 



where C indicates the FORTRAN Compiler, A A is the 
error number, XXXXX is the last encountered 
statement number, and YYY is the count of state- 
ments from the last statement number. 

See the Programming and Operator's Guide publi- 
cation for a list of the FORTRAN error numbers, 
their explanations, and the phases during which they 
are detected. 

In addition to the errors, undefined variables are 
listed by name at the end of compilation. Undefined 
variables inhibit the output of the object program. 

The initialization of each phase includes an overlap 
error check. If, at any time during the compilation, 
the statement string overlaps the Symbol Table, or 
vice-versa, or the remainder of the compilation is 
bypassed and the message 

PROGRAM LENGTH EXCEEDS CAPACITY 

is printed. 



COMPILER I/O 



The compiler uses the DISKZ subroutine for all disk 
I/O operations required during compilation. 

The compiler uses the principal input device sub- 
routine to read the control records and source state- 
ments to be compiled, and the principal input con- 
version subroutine to convert the source input to 
EBCDIC. 

The principal print device subroutine is used to 
perform any printing required during the compilation. 



FETCHING COMPILER PHASES 

The ROL subroutine loaded into high-addressed stor- 
age as part of phase 1, obtains from each phase the 
word count and sector address of the next phase to be 
loaded. This subroutine then reads the next compiler 
phase into core storage and transfers control to it. 

This subroutine also examines the Console Entry 
switches. If a request to dump is indicated in the 
switches, it calls the System Core Dump program via 
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the $DUMP entry point in the Skeleton Supervisor to 
dump the statement string, the Symbol Table, and 
the FORTRAN Communications Area. At the com- 
pletion of the dump the ROL subroutine regains 
control. It then fetches and transfers control to the 
next phase. 



PHASE DESCRIPTIONS 



• Converts subprogram names longer than five 
characters to five-character names. 

• Converts FORTRAN-supplied subprogram names 
according to the specified precision. 

• Generates the calls and parameters that initialize 
I/O subroutines during execution of the object pro- 
gram, if the IOCS control indicators ar€> present. 



PHASE 1 

• Reads the control records; sets the correspond- 
ing indicators in the FORTRAN Communications 
Area. 

• Reads the source statements; stores them in the 
String Area; precedes each statement with a 
partially completed ID word. 

• Checks for a maximum of five continuation rec- 
ords per statement. 

• Lists the source program, if requested. 

Phase 1 is composed of two major segments; the 
first analyzes the control records and the second 
inputs the source statements. The control record 
analysis portion of phase 1 is loaded into the String 
Area, while the statement input portion is loaded at 
the normal Phase Area origin. The control record 
analysis subroutines, therefore, remain in storage 
until the processing of the control records is com- 
pleted. They are then overlaid by the source state- 
ments as the string is built by the statement input 
portion. 



Errors Detected 



The errors detected by phase 1 are: 1 and 2. 



PHASE 2 

• Determines the statement type for each statement; 
inserts the type code into the statement ID word. 

• Places the statement terminator character (semi- 
colon) at the end of each statement. 



According to the indicators set in the IOCS word 
(word 15) of the FORTRAN Communications Area by 
the previous phase, phase 2 generates the required 
calls to FORTRAN I/O. If the Unformatted Disk I/O 
Area indicator is on, a 'LIBF UFIO r followed by its 
parameter is inserted into the string. If the Disk 
indicator is on, a 'LIBF SDFIO' followed by its par- 
ameter is inserted into the statement string. If any 
other indicator in the IOCS word is on, phase 2 in- 
serts the 'LIBF SFIO' followed by its parameters 
into the statement string. The table of device ser- 
vicing subroutines (ISSs) is also built and inserted. 

Phase 2, beginning with the first statement of the 
string, checks each statement in order to classify it 
into one of the 31 statement types. FORMAT state- 
ments, already having the type code, and compiler- 
generated error statements are not processed by this 
phase. Each statement name is compared to a table 
of valid FORTRAN statement names. Each recog- 
nized statement name is removed from the string 
and the corresponding ID type code is inserted into the 
statement ID word. 

Arithmetic statements are detected by location of 
the equal sign (=) followed by an operator other than 
a comma. Because of this method of detection, 
arithmetic and statement function statements both 
carry the arithmetic statement ID type until phase 8, 
which distinguishes them. 

Names within the statement body are converted 
into name code and stored. Names with only one or 
two characters are stored in one word. 

Phase 2 converts all parentheses, commas, etc. , 
into special operator codes. Each operator is stored 
in a separate word. Also, each arithmetic operator 
(+, -,./» *j **) is stored in a separate word, and a 
statement terminator character (semicolon) is placed 
after each statement, except for CONTINUE and 
FORMAT statements and compiler-generated error 
statements. 

NOTE: The string words containing name or con- 
stant characters have a one in bit position 0. Bit 
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position of string words containing arithmetic op- 
erator characters has a zero. 

The standard FORTRAN-supplied subprogram 
names specified in the source program are changed, 
if necessary, to reflect the standard or extended 
precision option specified in the control records. 
Also, the six-character subprogram names of 
SLITET, OVERFL, and SSWTCH, which are allowed 
so as to be compatible with System/360 FORTRAN, 
are changed to SLITT, OVERF, and SSWTC, respec- 
tively. 

The word FUNCTION appearing in a Type state- 
ment and the statement numbers of DO statements 
are isolated by the Classifier Phase. Isolation is 
accomplished by placing a one-word special oper- 
ator (colon) just after the word or name to be isolated. 
This process aids later phases in detecting these 
words and numbers. 



Errors Detected 



The error detected by phase 2 is: 4. 



SUBROUTINE or FUNCTION statement 
Type statements (REAL, INTEGER) 
EXTERNAL statements 
DIMENSION statements 
COMMON statements 
EQUIVALENCE statements 

A check is also made to ensure that all DATA and 
DEFINE FILE statements appear within the Specifi- 
cation statement group. Placement of these two 
statement types is optional; however, they must not 
be intermixed with EQUIVALENCE statements. 

The SORF word (word 13) in the FORTRAN Com- 
munications Area is appropriately modified if a 
SUBROUTINE or FUNCTION statement is present. 

The second pass of phase 3 scans the statement 
string for statements with statement numbers. Each 
unique statement number is placed into the Symbol 
Table and the address of the Symbol Table entry is 
placed into the string where the statement number 
previously resided. 

All statements having statement numbers pre- 
viously added to the Symbol Table (duplicates of other 
statement numbers) are in error. 



PHASE 3 



Errors Detected 



• Checks the subprogram and Specification state- 
ments for the proper order; removes any state- 
ment numbers from these statements. 

• Checks to ensure that statements following IF, 
GO TO, CALL LINK, CALL EXIT, RETURN, 
and STOP statements have statement numbers. 

• Removes CONTINUE statements that do not have 
statement numbers. 

• Checks the statements for statement numbers; 
checks the Symbol Table for a previous entry of 
the same statement number. 

• Places the statement number into the Symbol 
Table; places the address of the Symbol Table 
entry into the string. 

Phase 3 makes two passes through the statement 
string. The first pass checks to ascertain the sub- 
program and Specification statements are in the fol- 
lowing sequence: 



The errors detected by phase 3 are: 5, 6, and 9. 



PHASE 4 

• Places COMMON statement variables into the 
Symbol Table; includes dimension information in 
the Symbol Table entries, if present; removes the 
statement from the string. 

• Checks for a SUBROUTINE or FUNCTION state- 
ment; places the names and dummy arguments 
of the SUBROUTINE or FUNCTION statement into 
the Symbol Table; deletes the statement from 
the statement string. 

• Checks REAL and INTEGER statements for the 
word FUNCTION. 

Phase 4 is a two-pass phase. The first pass proc- 
esses COMMON statements; the second pass proc- 
esses a SUBROUTINE or FUNCTION statement, in- 
cluding a FUNCTION designated in a REAL or 
INTEGER statement. 
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Pass 1 of phase 4 examines all COMMON state- 
ments, checking all variable names for validity. 
Valid, unique variable names found in COMMON 
statements are placed into the Symbol Table. Dupli- 
cate variable names are in error. 

When dimension information is present in a 
COMMON statement, the Symbol Table entry for the 
dimensioned variable is expanded to six words, the 
dimension constants are changed to binary format, 
and this binary information is inserted into the 
Symbol Table entry. The Symbol Table ID word is 
updated to indicate the presence of the dimension 
information and the level of dimensioning. 

When all the variables in a COMMON statement 
have been processed, it is removed from the string. 

The second pass of phase 4 checks for a SUBROU- 
TINE or FUNCTION statement among the Specifica- 
tion statements. If either is found, the SORF word 
(word 13) in the FORTRAN Communications Area is 
modified to indicate whichever is applicable. The 
subprogram name is checked for validity. If valid, 
the name is added to the Symbol Table and the ad- 
dress of the Symbol Table entry is placed into the 
FNAME words (words 11-12) in the FORTRAN Com- 
munications Area. The subprogram parameters are 
checked and, if valid, they are added to the Symbol 
Table and the statement is removed from the string. 

The first REAL and INTEGER statements are 
examined for the presence of the word FUNCTION. 
If the FUNCTION specification is found, the REAL 
or INTEGER statement is processed in the same 
manner as a FUNCTION statement, except that the 
subprogram mode is specified explicitly by the 
statement type. 



• Indicates in the Symbol Table ID word the 
variable's mode (real or integer). 

• Checks EXTERNAL statements for the names 
IFK and FLOAT, which are not allowed. 

The processing of phase 5 is done in two passes. 
The first pass analyzes DIMENSION statements. Each 
variable name found in a DIMENSION statement is 
first checked for validity. If the name is valid, the 
Symbol Table is searched for a duplicate. If no dupli- 
cate is found, the variable name, along with its di- 
mension information, is added to the Symbol Table. 
If a duplicate is found that has not yet been dimen- 
sioned, the dimension information from the variable 
name is added to the existing Symbol Table entry. If 
a duplicate is found that has already been dimen- 
sioned, the variable name is in error. 

In a subprogram compilation, a comparison is 
made to ensure that no variable name duplicates the 
subprogram name. 

The second pass of phase 5 examines the REAL, 
INTEGER, and EXTERNAL statements found in the 
statement string. Each variable found in these types 
of statements is checked for validity. Valid variables 
are compared to the Symbol Table entries. Those 
variables duplicated in the Symbol Table as the result 
of prior COMMON or DIMENSION statement entries 
are in error. Those not equated to Symbol Table 
entries are added to the Symbol Table in the same 
manner as in the first pass of this phase. 



Errors Detected 



Errors Detected 



The errors detected by phase 5 are: 7. 
18, 19, 20, 21, and 22. 



I, 15, 17, 



The errors detected by phase 4 are: 7, 8, 10, 11, 12, 
12, 13, 14, and 15. 



PHASE 6 



PHASE 5 



Scans all IF, CALL, and arithmetic statements 
for valid real constants. 



• Places DIMENSION statement variables into the 
Symbol Table; places dimension information into 
the Symbol Table entries; removes the statement 
from the string. 

• Places variables and dimension information from 
REAL, INTEGER, and EXTERNAL statements 
into the Symbol Table. 



• Converts real constants to standard or extended 
precision format, as specified. 

Each valid real constant encountered in an arithmetic, 
IF , or CALL statement is converted to binary in the 
precision indicated by the FORTRAN Communica- 
tions Area indicators. The Symbol Table is checked 
for a previous entry of the constant. If a previous 



entry is found, no new entry is made. The constant 
operator, a special code indicating that the follow- 
ing word is the Symbol Table address of a constant, 
followed by the Symbol Table address of the con- 
stant already entered is inserted into the statement 
string in place of the constant. 

If no previous entry in the Symbol Table is found, 
the converted constant is added to the Symbol Table. 
The constant operator along with the Symbol Table 
address replaces the constant in the statement string. 
The statement string is closed up following the alter- 
ation of the string. 

Errors Detected 

The following errors are detected by phase 6: 23 
and 50. 



PHASE 7 

• Checks the syntax of DEFINE FILE, CALL EXIT, 
and CALL LINK statements. 

• Determines the defined file specifications. 

All variable names in DEFINE FILE, CALL LINK, 
and CALL EXIT statements are checked for validity 
and are added to the Symbol Table. All valid con- 
stants are converted to binary and are added to the 
Symbol Table. 

Phase 7 checks to ensure that a DEFINE FILE 
statement does not appear in a subprogram. 

This phase computes the file definition specifica- 
tions, that is, a DEFINE FILE Table consisting of 
one entry for each unique file. Each entry consists 
of the file number, the number of records per file, 
the record length, the associated variable, a blank 
word for insertion of the file's sector address at the 
time the program is loaded for execution, the num- 
ber of records per sector, and the number of disk 
blocks per file. A count is kept in the DFCNT word 
(word 16) in the FORTRAN Communications Area 
of the number of files defined. 



Errors Detected 

The errors detected by phase 7 are: 3, 70, 71, 72. 
and 73. 



PHASE 8 

• Places variables and integer constants into the 
Symbol Table. 

• Places parameters from statement function state- 
ments into the Symbol Table. 

• Replaces operators with pointers to the Forcing 
Table to be used in phase 16. 

• Converts the left parenthesis of subscripts to a 
special dimension indicator. 

Phase 8 checks the variable names found in the state- 
ment string for validity. Valid variables are added 
to the Symbol Table. A second check is made to en- 
sure that all variable names conform to the implicit 
or explicit mode specifications (real and integer). 
Integer constants are also added to the Symbol Table, 
provided they are unique. However, names and inte- 
ger constants that are found in subscript expressions 
are not added to the Symbol Table until a later phase. 

When adding names and constants to the Symbol 
Table, phase 8 replaces them in the string by the 
address of their respective Symbol Table entries. The 
address replacing a constant or name is the address 
of the DD word of the Symbol Table entry for that 
constant or name. 

Internal statement numbers are located in the 
Symbol Table and are replaced by the address of their 
corresponding Symbol Table entries; those state- 
ment numbers not found in the Symbol Table (i.e. , 
not previously entered) are in error. 

Phase 8 changes the K) word of the statement 
function statement, until now identical to that of an 
arithmetic statement, to the statement function type. 
Also, the statement function name and the param- 
eters of statement functions are added to the Symbol 
Table. These entries in the Symbol Table are dis- 
tinguished by their lack of a sign bit in the second 
word of the name. 

During phase 8, the left parenthesis on subscripts 
is changed to a special left parenthesis operator that 
indicates the order of the dimension that follows. 

This phase also converts all operators, except 
those in subscript expressions, from the 6 -bit 
EBCDIC representation to a pointer value. This 
pointer value is derived from the Forcing Table. The 
conversion is done in preparation for the Scan Phase, 
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phase 16, when an arithmetic operational hierarchy 
will be determined through these pointer values. 



Errors Detected 



The constant may be one word in length (an integer), 
two or three words in length (a real number in stand- 
ard or extended precision), or n words in length (a 
literal) . 

Each data pointer has the following form: 



The following errors are detected in phase 8: 7, 24, 
25, 26, and 43. 



PHASE 9 

• Checks the DATA statement for correct syntax 
and valid variable references. 

• Reformats the DATA statement into a string of 
data groups. 

Each variable in the DATA statement is checked to 
ensure that it has been previously entered into the 
Symbol Table. A check is also made to ensure that 
a subscript expression for a DATA statement vari- 
able does not exceed the level of dimensioning indi- 
cated in the Symbol Table entry for the referenced 
variable. 

Phases 9 converts the DATA statement into the 
following form: 



ID 
I Word I Data Group 1 i Data Group 2 | i Data Group n i 



Word Bit 

1 

1 



3-4 

5-15 

0-15 



Contents 



0, if no displacement word follows 

1, if a displacement word follows 

0, non-extemally subscripted 
variable 

1, externally subscripted variable 
Zeros 

Symbol Table address of the variable 
Displacement word (present only if 
variable is subscripted) 



A displacement word follows data pointers to sub- 
scripted variables; its contents are the adjusted sub- 
script offset. 

The statement terminator is removed from the 
DATA statement in phase 9. 



Errors Detected 

Phase 9 detects the following errors: 75, 76, 77, 
78, 79, 80, and 82. 



PHASE 10 



Each data group has the following form: 



Converts FORMAT statements into a chain of 
format specifications for interpretation by the 
FORTRAN I/O subroutines. 



Data Data Data 
Header Constant Pointer ] Pointer 2 
_ 1 12 ' - 1 L 



Data 
Pointer n. 



Converts the Apostrophe (') type format to 
H type. 



Each data header has the following form: 

Bits Contents 



1-12 Duplication factor 

13-15 Length of the following constant 



In decomposing the FORMAT statement, phase 10 
converts each format type into a format specification 
(see Table 6). Where required, the Field Repeat, 
Group Repeat, and REDO counts are computed and 
inserted. At the completion of phase 10, the 
FORMAT statement is simply a chain of format 
specifications . 

The conversion of a FORMAT statement is shown 
below: 
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ID 
Word 999 
I I 



H,3 



A,P =,b F,3,6 E,4,10 / 
I I I I 



1,8 RR,4 



-3 T, 1 H,10 b,A N,S W,E R,b l,S H,3 X,Y =,b F,4,9 RR,16 
I I I I I I I I I I I I I 



Table 6. Conversion of FORTRAN FORMAT Specifications 



Format 

Type 

(input) 


4 Bits 


Format Specification (output) 
5 Bits 7 Bits 

A. 1 


16 Bits 

X 








r >r . V "\ 


r 




> 


E 


0000 


DD | WW 




F 


000 1 


DD | WW 




1 


00 10 


WW 




A 


00 11 


WW 




X 


100 


WW 




H 


10 1 


WW 




T 


110 


cc 




/ 


111 


Undefined 




Group Repeat 


1000 


NO 


RR, 


n 




Field Repeat 


100 1 


NO 










10 10 


Not Used 




REDO 


10 11 


RR 





DD (decimal width) 
WW (total field width) 

CC (carriage control) 



Maximum = 127 (used only in E and 
F type formats). 

Maximum = 127 in E and F type for- 
mats, 145 in I, A, X, and H type 
formats . 

Positive count of the number of 
character positions to be skipped. 



NO (number) Positive count of the number of 

repetitions to be made of a field or 
group. 

RR, (group repeat) Negative count of the number of words 

back to the first specification of a group 
to be repeated. 

RR (REDO) Positive count of the number of words 

back to the rightmost left parenthesis in 
the statement. 



Errors Detected 

The following errors are detected in phase 10: 27 , 
28, 29, and 30. 



PHASE 11 

• Calculates the constants needed for object pro- 
gram subscript computation. 



• Sets up dummy arguments for the insertion of 
variables in the object coding. 

Phase 11 bypasses all FORMAT, CONTINUE, and 
compiler-generated error statements. All other 
statements are scanned but only those statements 
that contain the special left parenthesis operator 
inserted by phase 8 are operated upon. 

The subscripting information for each variable 
is checked for validity. 
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Phase 11 then calculates the subscript constant 
D4 and, depending on the dimensioning level, the 
constants D\, D2, and D3. (See below for the 
method of derivation of these constants.) 

These subscript constants are inserted into the 
subscript expression with the subscript indices. 
The right and left parenthesis enclosing the subscript 
expression are then changed to special operators to 
be used in a later phase. 



Calculation of the Subscript Constants 

Assuming the maximum subscript form 

c*v+c' 

where 

v represents an unsigned, nonsubsGripted, integer 
variable and c and c' represent unsigned integer 
constants, 

phase 11 computes the subscript constants (D -factors) 
as follows: 

For a 1 -dimension array — 

A(C 1 *I + C 2 ) 

D = C *S 
1 1 

D 4 = (C 2 - 1) *S 
For a 2 -dimension array — 

A(C ] *I+C 2 , C 3 *J+C 4 ) 

D x = C ± *S 

D = L * C * S 

D 4 = [(C 2 -1) + L*(C 4 -1)] *S 
For a 3 -dimension array — 



A(C 1 *I + C 2 , C 3 * J + C 4 , C 5 *K + C 6 ) 

D = C *S 

D n = L * C *S 
2 3 



D=L*M*C*S 
3 5 

D 4 = [< C 2 " 1) + L * (C 4 - 1) + L * M * (C 6 - 1)] *S 
In the above formulas, 

L = first dimension factor 

M = second dimension factor 

S = size in words of the array entries 

= 1 for one-word integers 

= 2 for standard precision 

= 3 for extended precision 
C and C = constants in the first dimension value 

C and C = constants in the second dimension 
value 

C_ and C_ = constants in the third dimension 
5 6 . 

value 

I, J, and K are the subscript indices. 

Errors Detected 

The following errors are detected in phase 11: 31, 
32, 33, 34, and 35. 

PHASE 12 

• Checks the syntax of arithmetic, IF, CALL, and 
statement function statements. 

• Checks statement function calls, including nested 
calls, for valid names and the correct number of 
parameters. 

• Checks for the definition of variables; checks for 
valid statement number references in IF state- 
ments. 

The syntax of all CALL statements is checked. A 
call operator is inserted between the subprogram 
name and its dummy arguments for use in the Scan 
Phase, phase 16. 

During the analysis of statement function state- 
ments a table is built containing the statement function 
name and the number of parameters associated with 



that function. This table is used in analyzing state- 
ment function calls, including nested calls, to check 
for the proper number of parameters. 

The syntax of the record number expression in 
Disk READ /WRITE statements is checked. The right 
parenthesis is changed to a colon operator which 
facilitates the scan of the Disk READ /WRITE state- 
ment in the following phase. 



PHASE 14 

• Checks for valid syntax in DO statements and in 
nested DO loops. 



• Generates and inserts at the appropriate points 
the coding needed to perform the DO test. 



Errors Detected 

The following errors are detected in phase 12: 
37, 38, 39, 40, 41, 42, and 43. 



36, 



• Checks the syntax of DO, CONTINUE, BACK- 
SPACE, REWIND, END FILE, STOP, PAUSE, 
and END statements. 



PHASE 13 

• Checks FIND , READ , WRITE , and GO TO state- 
ments for correct syntax, valid FORMAT state- 
ment references, and valid variables. 

• Detects implied DO loops in READ and WRITE 
statements; generates the indicators necessary 
for later processing of the DO loop. 

When READ and WRITE statements are encountered 
in a mainline program, a check is made for the pres- 
ence of IOCS indicators in the FORTRAN Communi- 
cations Area. All READ and WRITE statements in a 
SUBROUTINE or FUNCTION subprogram do not 
require the presence of IOCS indicators. 

READ, FIND, and WRITE statements are checked 
for valid variables and for proper syntax. READ 
and WRITE statements are checked for a valid 
FORMAT statement reference. Disk READ and 
WRITE statements are differentiated by means of the 
apostrophe (') separating the file number and record 
number parameters. The appropriate disk or non- 
disk I/O operator is generated for and inserted into 
each READ or WRITE statement. 

READ and WRITE statements are also checked 
for implied DO loops. The necessary DO initialize 
and DO test operators are generated and inserted into 
the statement body. 



Errors Detected 

The following errors are detected in phase 13: 
44, 45, 46, 47, 48, 49, 50, and 68. 



• Checks for a GO TO, IF, STOP, CALL LINK, 
CALL EXIT, or RETURN statement as the last 
executable statement of the source program. 



BACKSPACE, END FILE, and REWIND statements 
are checked for valid unit addresses. Valid unit 
addresses are placed into the Symbol Table as 
integer constants. BACKSPACE, END FILE, and 
REWIND statements are then replaced on the state- 
ment string by a generated LIBF followed by the 
Symbol Table address of the unit address. This 
Symbol Table address becomes an argument to 
the LIBF. 

Statements which follow STOP statements are 
checked to ensure that they are numbered statements. 
All integers found in PAUSE and STOP statements 
are checked to ensure that they are not greater than 
9999. Valid integers are added to the Symbol Table 
as integer constants. 

As the DO statements are analyzed for correct 
syntax, phase 14 constructs a DO Table in the follow- 
ing format; 



43, 



Word 


Contents 


1 


Index 


2 


DO test statement number or 




Generated Label 


3 


Test value 


4 


Increment 


5 


DO range statement 




number 



Section 11. FORTRAN CompiLer 89 



A DO Table entry is made for each DO statement 
when it is detected. As the statements following 
the DO statement are scanned, the statement num- 
bers are compared with the contents of word 5, the 
range limit, of the DO Table entries. When the 
range limit is found the DO test coding is inserted 
into the statement string. 

The DO Table is built from low-to-high-addressed 
storage. It is scanned, however, from high-to-low- 
addressed storage. In this manner, nested DO loops 
that violate range limits are detected. 



Errors Detected 



The following errors are detected in phase 14: 51, 
52, 53, 54, 55, 56, 57, 58, 59, 60, 61, and 62. 



PHASE 15 

• Scans READ, WRITE, IF, CALL, and arithmetic 
statements for subscript expressions. 

• Optimizes subscript calculation by means of the 
Subscript Expression Table. 

• Generates SGTs (Subscript-generated temporary 
storage locations) as necessary. 

Each unique subscript expression is placed into a 
table called the Subscript Expression Table. Each 
entry in this table appears as follows: 



Word 



Contents 



D 



2 I, first dimension subscript index 

3 D t 

4 J, second dimension subscript index 

5 D 2 

6 K, third dimension subscript index 

D 3 

8 /8 010, if entry is not used 

/0010, if entry is used on this statement 
/0000, if entry was used on a previous 
statement 



Also, each unique variable of a subscript expression 
is placed into a table called the Bound Variable 
Table. 

As each subscript expression is entered into the 
Subscript Expression Table, it is removed from the 
string. The subscripted variable is then tagged with 
SGT indicator bits pointing to the Subscript Expres- 
sion Table entry. 

An SGT (Subscript-generated temporary storage 
location) is generated for each entry made to the Sub- 
script Expression Table. The SGT is placed into an 
SGT Table. The SGT is also placed into the Symbol 
Table and the address of the Symbol Table entry is 
inserted into the statement in the string. 

For each subscript expression encountered, a 
scan is made of the Bound Variable Table. If one or 
more of the variables in the subscript expression are 
not located in the Bound Variable Table, the subscript 
must be recalculated. Thus, a unique entry is made 
to the Subscript Expression Table for the expression 
and an associated SGT is generated. 

If, however, all the variables of the subscript 
expression are located in the Bound Variable Table, 
the Subscript Expression Table is then scanned to 
determine if a duplicate subscript expression is al- 
ready located in the table. If no equivalent is found, 
the subscript expression is added to the table as a 
unique entry and an associated SGT is generated. 

If a duplicate expression is found in the Subscript 
Expression Table, the subscript expression is re- 
moved from the string and is replaced by a pointer 
to its duplicate in the Subscript Expression Table. 
Thus, identical subscript expressions share the same 
indices of a common entry in the Subscript Expression 
Table and the same SGT. 

Whenever a variable is assigned a new value (i.e. , 
appears to the left of the equal sign in an arithmetic 
expression, in the argument list of a subprogram, 
etc.), that variable, if found in the Bound Variable 
Table, is removed from the table. This removal 
from the Bound Variable Table causes all entries in 
the Subscript Expression Table containing that vari- 
able to be removed. The associated SGTs are also 
removed from the SGT Table but remain in the Sym- 
bol Table. The addresses in the string of the SGTs 
in the Symbol Table also remain. 

If a statement is encountered containing a subscript 
expression and having a statement number that is 
referenced by some other statement, the entire Sub- 
script Expression Table is cleared and all subscripts, 
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beginning with the subscript expression in the ref- 
erence statement, must be recalculated. 

The Subscript Expression Table is also cleared 
whenever a DO statement is encountered. Following 
subscripts must be recalculated. Implied DO loops, 
as in READ and WRITE statements, cause only those 
entries involving the index of the implied DO to be 
cleared. Only the subscripts involving that index 
must be recalculated. 



Errors Detected 



The following error is detected in phase 15: 63. 



PHASE 16 

• Converts all FIND, READ, WRITE, IF, GO TO, 
CALL, statement function, and arithmetic state- 
ments into a modified form of Polish notation. 

• Establishes the order of arithmetic operational 
performance. 

• Sets up the arguments for subroutine calls to be 
generated. 

Phase 16 converts all READ, WRITE, GO TO, arith- 
metic, statement function, CALL, and IF statements 
to a modified form of Polish notation. This conver- 
sion is accomplished through the use of a Forcing 
Table , strings , and an Interpreter. 

The Forcing Table is a table of 2-word entries. 
The first word contains the left and right forcing 
values for each operator. The first 8 bits constitute 
the left forcing value and the last 8 bits , the right 
forcing value. The second word of the 2 -word entry 
contains the address of the string to be used by the 
Interpreter when the corresponding operator is 
forced. (See Table 7.) 

The string address (word 2 of each Forcing Table 
entry) for each operator is a pointer used by the 
Interpreter. This pointer designates to the Inter- 
preter a string of operations that must be per- 
formed by the Interpreter in order to convert the 
forced operator and its operands to the modified form 
of Polish notation. 

NOTE: Strings may also contain pointers. These 
pointers designate substrings, which are detailed 



Table 7. FORTRAN Forcing Table 



Operator 


Definition 


Fore 
Left 


ng Value 
| Right 


String 
Pointer 


N 


Name Operator 


63 


00 





) 


Normal Right Parenthesis 


01 


32 





' 


Statement Terminator 


3C 


3C 





+,- 


Add, Subtract 


0A 


0A 


1 


/,* 


Divide, Multiply 


05 


05 


1 


J_ 


Exponentiation 
Assign 


05 
3B 


04 
3C 


1 
1 


( 


Normal Left Parenthesis 


31 


01 


2 


' 


Comma 


31 


30 


3 


© 


Call Operator 


01 


01 


4 


©.© 
©.©, 


Special Parenthesis for Literals, 
Special Parenthesis for 
Dimensioned Arrays 


31 


01 


6 


© 


Unary Minus 


0A 


0A 


7 


© 


Range Operator 


31 


01 


8 


fsKp) 


Special Right Parenthesis in 
Implied DOs 


31 


01 


9 


© 


Subscripting Right Parenthesis 
in Implied DOs 


31 


01 


10 


© 


I/O Operator before Scan 


30 


01 


11 


© 


I/O Operator during and after 
Scan 


30 


01 


12 


(doa) 


Equal Sign in Implied DOs 


31 


01 


13 



extensions of the string and which are used by the 
Interpreter in the same manner as the strings. 

A forcing condition exists if the forcing value of 
the right operator is equal to or greater than the 
forcing value of the left operator. This condition re- 
sults in the left operator being forced; that is, the 
operation to the left has precedence. Whenever a 
non-forcing condition exists, the operands and oper- 
ators involved remain in the statement. Operands 
and operators are removed from the string only when 
an operator is forced and the Interpreter-generated 
symbol FAC replaces them. 

The Interpreter controls the conversion of the 
statement to the modified form of Polish notation. As 
each operator is forced, the Interpreter, using the 
string address from the Forcing Table, selects the 
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associated string and performs the string opera- 
tions. These operations result in the output of the 
forced operator and its operands, resequenced in 
the order of operational performance. The forced 
operator and its operands are put out into the output 
buffer by the Interpreter and are replaced in the 
statement body by the symbol FAC. 

The scan begins with the string pointer moving 
from left to right. When an operator is encountered, 
the scan looks two words to the left for a second op- 
erator. If none is found, the string pointer moves 
to the right, one word at a time, in search of another 
operator. If an operator is found to the left, the 
scan converts the left and right operators to their 
respective forcing values and checks for the forcing 
condition. 

If a forcing condition does not exist, the scan 
again resumes, moving the pointer to the right. If, 
however, a forcing condition does exist, the Inter- 
preter handles the operator and operands involved. 

Upon return to the scanning process, the string 
pointer is positioned to the same operator that 
caused the previous force, the symbol FAC resides 
one word to the left in place of the forced operator 
and its operands, and a new operator resides two 
words to the left. These operators are then con- 
verted and the check is made for the forcing condi- 
tion. 

If at any time the symbol FAC is an operand of a 
forced operator, FAC is replaced by a GT (generated 
temporary storage location). The GT is then output- 
ted as the operand in place of FAC. FAC again re- 
places the forced operator and operands in the state- 
ment body. New GTs are created as they are needed 
in order to maintain FAC in the statement body. 

At the completion of the scan process the state- 
ment body has been reduced to the symbol FAC; the 
statement body now consists of less than four words. 
The output buffer contains the entire statement con- 
verted to the modified form of Polish notation. 

If in looking for a left operator the scan must by- 
pass the argument list of a call operator, the ele- 
ments of this argument list are stored temporarily 
in a special buffer called the Push-down List. When 
the call operator is forced and placed into the output 
buffer, the Push-down List is then emptied into the 
output buffer in reverse order so that the arguments 
are restored in their original sequence following 
the call operator. 



When the scan detects that the statement consists 
of less than four words (the symbol FAC only), the 
output buffer is placed into the statement string 
overlaying the symbol FAC, and the scan moves to 
the next statement. 

The statement terminator (semicolon) serves as 
an operator that is scanned as any other operator. 

Figure 16 illustrates the scanning process. 



Errors Detected 

The following error is detected in phase 16: 64. 

PHASE 17 

• Replaces FIND, READ, WRITE, GO TO, and 
RETURN statements with compiler-generated 
coding. 

• Replaces those parts of arithmetic, IF, CALL, 
and statement function statements that involve 
subscripting of variables with compile r-generated 
coding. 

• Checks subprograms for a RETURN statement; 
generates the return linkage coding. 

Phase 17 replaces READ, WRITE, and FIND state- 
ments by a call to the appropriate I/O subroutine, 
along with the necessary arguments. Generated 
labels are added to READ and WRITE statements in- 
volving implied DO loops. 

Also, statement function, arithmetic, IF, and 
CALL statements are examined for subscripted var- 
iables. Those parts of these statements that involve 
subscripts are replaced by compiler-generated cod- 
ing. 

In order to produce more efficient coding, phase 
17, by means of an SGT Table, eliminates redundant 
loads of the same subscript offset. Also, the instruc- 
tions used to load literal subscripts are placed im- 
mediately before the indexed operations. 



Errors Detected 



The following error is detected in phase 17: 69. 
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Arithmetic Statement 
A=B+C*D-E 



Step 


Contents of 
the string 


Contents of the 
Output Buffer 


Comments 


1 


A = B+C*D-E 

t 
P 




A is not an operator, so the pointer, P, moves to the right. When scanning to the right for an 
operator, non-operators are simply skipped. When scanning for an operator to the left with which 
to force, non-operators are added to the push-down list. 


2 


A - B+C*D-E 
P 




There is no operator to the left with which a forcing condition test can be made; therefore, the 
pointer moves to the right until an operator is encountered. 


3 


A = B+C*D-E; 

t 

P 




Using the forcing table, the pointer indicates the RV (right forcing value) and P - 2 (two positions 
to the left) indicates the LV (left forcing value). The RV of + is 0A; the LV of ~ is 3B. 0A is not 
equal to or greater than 3B. The left operator is not forced, and the pointer moves to the next 
operator . 


4 


A - B+C*D-E; 

t 

P 




The RV of * is 05; the LV of + is 0A . 05 is not equal to or greater than 0A... The left operator is 
not forced, and the pointer moves to the next operator. 


5 


A - B+C*DtE; 

T 
P 


*CD 


The RV of - is 0A; the LV of * is 05. 0A is greater than 05. Hence, the left operator is forced. 
*CD is placed in the output buffer and the symbol FAC replaces the outputted operator and 
operands. The pointer is not moved; an attempt is made to force the new left operator. 


6 


A - B+ FAC-E; 
P 


*CD+B 


The RV of - is 0A; the LV of i is 0A. 0A is equal to 0A . Hence, the left operator is forced. 
+B is added to the output buffer. The symbol FAC still replaces the contents of the output buffer. 
The pointer is not moved; an attempt is made to force the new left operator. 


7 


A = FAC-E; 

t 
P 


*CD+B 


TheRVof-isOA; theLVof=is3B. OAisnot equal to or greater than 3B. The left operator 
is not forced and the pointer moves to the next operator, 


8 


A = FAC-E; 

t 
P 


*CD+B-E 


The R 
forcec 
outpu 


/ of ; is 3C; the LV of - is 0A. 3C is greater than 0A . Hence, the left operator is 
. -E is added to the output buffer . The symbol FAC still replaces the contents of the 
buffer. The pointer is not moved; an attempt is made to force the new left operator. 


9 


A = FAC; 

t 
P 


*CD+B-E=A 


The RV of ; is 3C; the LV of = is 3B. 3C is greater than 3B. Hence, the left operator is 
forced. =A is added to the output buffer. The symbol FAC still replaces the contents of the 
output buffer , 


10 


FAC; 


*CD+B-E=A 


The original statement now consists of three words or less. This indicates that the statement has 
been scanned , The symbol FAC is now replaced by the contents of the output buffer . 


11 


*CD+B-E=A; 




The scan is complete. 



Figure 16. FORTRAN Scan Example 



PHASE 18 

• Replaces arithmetic, statement function, CALL, 
and IF statements not involving subscripted var- 
iables by compiler-generated coding. 

• Completes the replacement of arithmetic, state- 
ment function, CALL, and IF statements that do 
involve subscripted variables by compiler- 
generated coding. 

• Optimizes IF statement branch instructions. 

• Handles mixed-mode arithmetic. 



This phase generates the coding necessary to replace 
arithmetic, statement function, CALL, and IF state- 
ments. This phase wholly converts statements of 
these types that include no subscripted variables and 
merely completes the conversion, which was partially 
completed in phase 17 , of statements of these types 
that do include subscripted variables. 

Phase 18 generates the code to perform integer, 
real, and mixed-mode arithmetic. Where possible, 
integer arithmetic is done in-line. The remainder of 
the coding consists of calls to System Library sub- 
routines, followed by argument lists. 

As needed, calls to the FORTRAN-supplied FUNC- 
TION subprograms IFEX and FLOAT are generated. 
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All calls to these subprograms are made LIBFs. 
However, calls to exponentiation subroutines gen- 
erated by phase 18 are made CALLs. 

GTs (generated temporary storage locations) de- 
tected in the string by this phase or generated by 
this phase for storing intermediate results of arith- 
metic calculations are made to agree in mode with 
the function of which they are a part. 



Errors Detected 



Variables that appear in EQUIVALENCE state- 
ments are allocated next, one combined equivalence 
nest at a time. The remaining variables in the 
Symbol Table are finally allocated, real variables 
first, followed by integer variables. 

Phase 19 also computes the core requirements for 
constants after all defined variables have been allo- 
cated. The core requirements for variables and for 
COMMON are then stored in the FORTRAN Commun- 
ications Area. 



There are no errors detected in phase 18. 



Errors Detected 



PHASE 19 

• Fetches the principal print device subroutine for 
use by phases 19-24; also provides a print inter- 
face subroutine for these phases. 

• Allocates storage for COMMON variables. 



The error detected by phase 19 is either: 65, 66, 
or 67. 



PHASE 20 

• Lists any errors that were detected during the 
compilation process. 



• Allocates all storage assignments aligned accord- 
ing to EQUIVALENCE statements. 

• Assigns all allocations according to the specified 
precision of the program. 

• Prints the allocations of the variables as they 
are assigned, if requested. 

Phase 19 performs the allocation of the variables 
found in the Symbol Table; i.e. , these variables are 
assigned storage addresses in the object coding. 
These addresses replace the Symbol Table entries 
for the variables. 

The COMMON area resides in high-addressed 
storage during execution of the object program. 
Thus, all COMMON variables are assigned absolute 
addresses within this high-addressed area. The 
variaMe area resides in storage just below the ob- 
ject program during execution. All variables not 
in COMMON are assigned relative addresses within 
this area. 

Phase 19 first allocates COMMON variables found 
in the Symbol Table. EQUIVALENCE statements 
that include COMMON variables are examined and 
the addresses are aligned during allocation to obtain 
an equivalence. A check is made to ensure that the 
equivalence does not cause a variable or array ele- 
ment to be allocated beyond the beginning of the 
COMMON area. 



• Rearranges the statement string if there were no 
errors detected. 

Phase 20 deletes from the statement string EQUIV- 
ALENCE statements that do not have an error indica- 
tor and replaces EQUIVALENCE statements that have 
an error indicator by error statements. 

The Symbol Table is scanned twice. The first 
scan detects unreferenced statement numbers and 
lists them on the principal print device. The second 
scan detects undefined variables and lists these also 
on the principal print device. 

The statement string is rearranged (if there were 
no errors in the compilation) so that, if they are 
present, the DEFINE FILE Table, format specifica- 
tion strings , and arithmetic statement functions pre- 
cede the first executable statement. 

The statement string is scanned for error state- 
ments. Two counters are maintained during the scan. 
The first (STLAB) contains the statement number of 
the last numbered statement encountered. The second 
(STCNT) contains a count of the statements encoun- 
tered since the last numbered statement. Compiler- 
generated statements and statement numbers are dis- 
regarded in these counts. 

When an error statement is detected, these coun- 
ters are inserted into the error message along with 
the error number for printing. 

A check is made on all DATA statements. If a data 
constant is defined in COMMON, error 81 is indicated. 
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Errors Detected 



The following error is detected in phase 20: 81. 



allocation found in each of these statements is 
entered in the Symbol Table. The allocation and the 
label are then deleted from the string entry. 



PHASE 21 



Errors Detected 



• Assigns the relative addresses to statement func- 
tions and numbered statements; inserts the allo- 
cations into the string. 

• Creates the subroutine initialization call, if 
required. 

• Calculates the core requirements of the program; 
stores the result in the FORTRAN Communica- 
tions Area. 

• Generates the statement function return linkage 
coding. 

Phase 21 allocates relative addresses to all num- 
bered statements and statement functions. The allo- 
cation is placed into the statement string entry, 
following the statement number or function label. A 
calculation of the object program storage require- 
ments is made from the Location Counter at the end 
of allocation and stored in the SOFNS word (word 4) 
in the FORTRAN Communications Area. 

If the program being compiled is a subprogram, 
this phase also creates the subroutine initialization 
call, CALL SUBIN, along with its dummy arguments; 
this subroutine directs the insertion of arguments 
during execution of the object program. 



Errors Detected 



There are no errors detected in this phase. 



PHASE 22 

• Inserts the statement allocations into the Symbol 
Table. 

• Lists the statement allocations on the principal 
print device, if requested. 

This phase scans the statement string for statement 
function statements and numbered statements. The 



There are no errors detected in this phase. 



PHASE 23 

• Lists the Features Supported by the program as 
indicated in the FORTRAN Communications Area. 

• Lists the System Library subroutines used by the 
program, if requested. 

• Lists the subprogram names found in the Symbol 
Table, if requested. 

Using the indicators in the CCWD word (word 14) in 
the FORTRAN Communications Area, phase 23 
recreates the control records that were recognized 
in phase 1. These control records (with the exception 
of *IOCS) are listed on the principal print device 
under the title 'FEATURES SUPPORTED. ' 

According to the indicators in the CCWD word, 
phase 23 also alters (for purposes of printing only) 
the names of subprograms in the compiler-generated 
calls to reflect extended precision, if specified. 
(The actual compiler-generated coding is not altered 
until phase 26.) 

If requested, a list is made of all the subprogram 
names that appear in the Symbol Table (all CALLs) . 

Phase 23 also scans the statement string, bypass- 
ing all one -word statements and tagging the names in 
the System Library table that are called by the pro- 
gram (all LIBFs). While scanning the System 
Library table, phase 23 checks the indicators in the 
IOCS word (word 15) in the FORTRAN Communica- 
tions Area. A tag is added to the names of those 
subroutines that service the devices indicated in the 
IOCS word (i. e. , the devices listed in the *IOCS 
control record). The names of the associated con- 
version subroutines (if required) are also tagged. 
The Subroutine table is then scanned and, if requested, 
the tagged System Library subroutine names are 
listed. 
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Errors Detected 



There are no errors detected in this phase. 



PHASE 24 

• Lists the Core Requirements. 

• Lists the constants and their addresses, if 
requested. 

Under the heading 'CORE REQUIREMENTS, ' phase 
24 prints the amounts of storage used by the program, 
COMMON area, and variables. The program naihe 
is printed from the FNAME words (words 11-12) in 
the FORTRAN Communications Area. 

If a list request is specified in the CCWD word 
(word 14), the real and integer constants are con- 
verted to output coding and listed with their relative 
addresses according to the specified precision. 
Real constants are listed first, followed by integer 
constants. 

A check is made to see that the core requirements 
do not exceed 32767 words. If they do, the EERQR 
word (word 10) in the FORTRAN Communications; 
Area is set and output to Working Storage is sup- 
pressed. 



Errors Detected 



There are no errors detected in this phase. 



PHASE 25 

• Builds the program header and data header rec- 
ords; places these records onto the disk in 
Working Storage. 



placed into Working Storage. The file specifications 
are outputted in absolute mode, except for the asso- 
ciated variable, which is in relocatable mode (the 
only relocatable constant). The statement string is 
also searched for DATA statements. All data con- 
stants are placed in Working Storage in absolute mode. 
The Symbol Table is scanned twice. The first scan 
extracts real constants, computes their allocations , 
and inserts the allocations into the Symbol Table. The 
second scan performs the same operations for integer 
constants. All constants are placed into Working 
Storage in absolute mode. 



Errors Detected 



There are no errors detected in this phase. 



PHASE 26 

• Converts the compiled statement string to object 
coding. 

• Places the object program into Working Storage. 

According to the indicators in the CCWD word (word 
14) in the FORTRAN Communications Area, phase 26 
alters the subroutine names referenced by the com- 
piled program to reflect, if necessary, extended pre- 
cision as specified by the user. Phase 23 made the 
same conversion for listing purposes; this phase 
makes the conversion during the generation of the 
object program. 

Phase 26 converts the statement string into the 
object program, which is written in Working Storage. 

At the completion of the output, the termination 
subroutine (OUTER) inserts the necessary data into 
the FORTRAN Communications Area so that the Re- 
covery Phase can complete the compilation. 



• Places real and integer constants into Working 
Storage in absolute mode. 

Phase 25 initially builds the program header and ; 
data header records. These records and the Buffer 
Communications Area carry information to phase 26. 
The program header and data header records are 
placed in Working Storage. 

The statement string is searched for DEFINE FILE 
statements. These statements are analyzed and then 



Errors Detected 



There are no errors detected in this phase. 



PHASE 27 

• Sets up the switches and parameters needed by 
the Monitor Control Record Analyzer to assume 
control. 
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This phase is the means by which the compiler re- 
turns control to the monitor system. The phase is 
entered under the following conditions: 



Normal end of compilation, with or without 

program errors. 

Disk work area exceeded. 

Control record trap during input phase. 



In each case the Recovery Phase sets indicators 
in the FORTRAN Communications Area in order to 
inform the monitor system program called next as 
to the results of the compilation. Compilation errors, 
the exceeding of Working Storage, and the trapping of 
a monitor control record all cause the compilation 
output to be suppressed, the non-execute switch 
($NXEQ) to be set, and the non-DUP switch ($NDUP) 
to be set. 

If the compilation is successful, the program 
length, the number of disk blocks used to store the 
program, and the execution address are all trans- 
mitted to DCOM on the master cartridge and to 
DCOM of the Working Storage cartridge if it is other 
than the master cartridge. 



Errors Detected 

There are no errors detected in this phase. 

UPDATING THE MASTER CARTRIDGE 

If the compilation is free of errors , DCOM on the 
master cartridge is updated as follows: 

e The program length in disk blocks is placed in 
# DBCT and in one entry in the # WSCT quintuple 
corresponding to the cartridge that contains 
System Working Storage. 

• The relative execution address (or entry point 
address) is placed in # ENTY. 

• One entry in the # FMAT quintuple corresponding 
to the cartridge that contains System Working 
Storage is set to zero to indicate that the Working 
Storage contains DSF. 

In addition, if System Working Storage is on 
other than the master cartridge, # WSCT and 

• FMAT of the cartridge containing System Working 
Storage are updated as described above. 
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SECTION 12. SYSTEM LIBRARY 



FLOWCHARTS 

Write Cartridge ID (ID): 

Fetch Phase IDs From SLET (FSLEN): 

Fetch System Subroutine (FSYSU): 

Write Working Storage Addresses (ADRWS): 

Initialize Disk Cartridge (DISC): 

Read *ID Record and Convert (RDREC): 

Print Cartridge ID (IDENT): 

Call System Print Subroutine (CALPR): 

Copy Disk Cartridges (COPY): 

Delete Core Image Buffer (DLCIB): 

Dump SLET (DSLET): 

Maintenance Program (MODIF): 

SCAT2, Call Processing: 
SCAT2, Interrupt Processing: 

SCAT3, Call Processing: 
SCAT3, Interrupt Processing: 



Function 



Utility 



Selective Dump on Console Printer 
Selective Dump on 1132 Printer 
Dump 80 Subroutine 

Common FORTRAN 

Test Console Entry Switches 
Divide Check Test 
Functional Error Test 
Overflow Test 

Sense Light Control and Test 
FORTRAN Trace Stop 
FORTRAN Trace Start 
Selective Dump 

FORTRAN Sign Transfer 

Extended Precision Transfer of Sign 
Standard Precision Transfer of Sign 
Integer Transfer of Sign 

Extended Precision Arithmetic/Function 

Extended Precision Hyperbolic 

Tangent 
Extended Precision A**B Function 





FORTRAN Non-disk I/O (SFIO): 


FIO01- 










FIO03 


UTL01 


CARDZ 






FIO04- 


UTL02 








FIO05 


UTL02 


PRNTZ 






FIO06 


IS): UTL03 


PAPTZ 






FIO07 


UTL04 


READZ 






FIO08 


UTL05 


WRTYZ 






FIO09 


UTL06 


PRNZ: 






FIO10 


UTL07 


PNCHZ 






FIOll 


UTL08 


TYPEZ 






FI012 


UTL09 


HOLEZ 






FI013 


UTL10 










UTL11- 










UTL13 


The System Library consists of (1) a 


l complete 


SCA01 


library 


of input/output (except disk I/O), data 


SCA02- 


conversion, arithmetic, 


and function 


subprograms, 


SCA03 


(2) selective dump subroutines, and 


(3) special 


SCA04 


programs for disk maintenance. 




SCA05- 


The following is a list of the contents of the 


SCA07 


System Library. 






Name(s) 


Type 


Subtype 


Reference 


DeckK) 


DMTDO, DMTXO 


4 





CALL 


U5B00010 


DMPD1, DMPX1 


4 





CALL 


U5C00010 


DMP80 


4 





CALL 


U5A00010 


DATSW 


4 


8 


CALL 


T3F00010 


DVCHK 


4 


8 


CALL 


T3G00010 


FCTST 


4 


8 


CALL 


T3H00010 


OVERF 


4 


8 


CALL 


T3J00010 


SLITE, SLITT 


4 


8 


CALL 


T3L00010 


TSTOP 


4 


8 


CALL 


T3M00010 


TSTRT 


4 


8 


CALL 


T3N00010 


PDUMP 


4 





CALL 


T3K00010 


ESIGN 


4 


8 


CALL 


S2F00010 


FSIGN 


4 


8 


CALL 


R2F00010 


ISIGN 


4 


8 


CALL 


T3I00010 



ETANH, ETNH 4 
EAXB, EAXBX 4 



CALL 
CALL 



S2I00010 
S2C00010 
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Function 



Name(s) 



Extended Precision Arithmetic/Function (Cont'd) 



Extended Precision Natural Logarithm 
Extended Precision Exponential 
Extended Precision Square Root; 
Extended Precision Sine-Cosine 

Extended Precision Arctangent 
Extended Precision Absolute Value 
Function 

Standard Precision Arithmetic/Function 

Standard Precision Hyperbolic 

Tangent 
Standard Precision A**B Function 
Standard Precision Natural Logarithm 
Standard Precision Exponential 
Standard Precision Square Root 
Standard Precision Sine-Cosine 

Standard Precision Arctangent 
Standard Precision Absolute Value 
Function 

Common Arithmetic/Function 

Fixed Point (Fractional) Square Root 
Integer Absolute Function 
Floating Binary/EBCDIC Decimal 
Conversions 



System 

LOCAL/SOCAL Flipper 
DCOM Update 

FORTRAN Trace 

Extended Floating Variable Trace 
Fixed Variable Trace 
Standard Floating IF Trace 
Extended Floating IF Trace 
Fixed IF Trace 

Standard Floating Variable Trace 
GOTO Trace 

FORTRAN I/O 

Non-Disk Formatted FORTRAN I/O 



FORTRAN Find 



ELN, EALOG 
EEXP, EXPN 
ESQR, ESQRT 
ESIN, ESINE, 

ECOS, ECOSN 
EATN, EATAN 

EABS, EAVL 



Type Subtype 



Reference 


Deckm 


CALL 


S2E00010 


CALL 


S2D00010 


CALL 


S2H00010 


CALL 


S2G00010 


CALL 


S2B00010 


CALL 


S2A00010 



FTANH, FTNH 


4 


8 


CALL 


R2I00010 


FAXB, FAXBX 


4 


8 


CALL 


R2C00010 


FLN, FALOG 


4 


8 


CALL 


R2E00010 


FEXP, FXPN 


4 


8 


CALL 


R2D00010 


FSQR, FSQRT 


4 


8 


CALL 


R2H00010 


FSIN, FSINE, 










FCOS, FCOSN 


4 


8 


CALL 


R2G00010 


FATN, FATAN 


4 


8 


CALL 


R2B00010 


FABS, FAVL 


4 


8 


CALL 


R2A00010 


XSQR 


4 


8 


CALL 


T1C00010 


IABS 


4 


8 


CALL 


T1B00010 


FBTD (binary to 










decimal), FDTB 










(decimal to binary) 


4 





CALL 


T1A00010 


FLIPR 


3 





. 


U5D00010 


SYSUP 


4 





CALL 


U5E00010 


SEAR, SEARX 


3 





LIBF 


S2J00010 


SIAR, SIARX 


3 





LIBF 


T6B00010 


SFIF 


3 





LIBF 


R2K00010 


SEIF 


3 





LIBF 


S2K00010 


SIIF 


3 





LIBF 


T6C00010 


SFAR, SFARX 


3 





LIBF 


R2J00010 


SGOTO 


3 





LIBF 


T6A00010 


SFIO, SIOI, SIOAI, 










SIOF, SIOAF, 










SIOFX, SCOMP, 










SWRT, SRED, 










SIODC 


3 


3 


LIBF 


T4C00010 


SDFND 


3 


1 


LIBF 


T4B00010 
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Function 



Name(s) 



Disk FORTRAN I/O 


SDFIO, SDRED, 
SDWRT, SDCOM, 
SDAF, SDF, SDI, 
SDIX, SDFX, 






SDAI 


3 


Unformatted FORTRAN I/O 


UFIO 


3 


Common FORTRAN 






FORTRAN Pause 


PAUSE 


3 


FORTRAN Stop 


STOP 


3 


FORTRAN Subscript Displacement 






Calculation 


SUBSC 


3 


FORTRAN Subroutine Initialization 


SUBIN 


3 


FORTRAN Trace Test and Set 


TTEST, TSET 


3 


FORTRAN I/O and Conversion 






FORTRAN Card 1442 (Read/Punch) 


CARDZ 


5 


FORTRAN Card 1442-5 (Punch) 


PNCHZ 


5 


FORTRAN Card 2501 (Read) 


READZ 


5 


FORTRAN Paper Tape 


PAPTZ 


5 


FORTRAN 1132 Printer 


PRNTZ 


5 


FORTRAN 1403 Printer 


PRNZ 


5 


FORTRAN Keyboard/Typewriter 


TYPEZ 


5 


FORTRAN Typewriter 


WRTYZ 


5 


FORTRAN Hollerith to EBCDIC 






Conversion 


HOLEZ 


3 


FORTRAN Get Address Subroutine 


GETAD 


3 


FORTRAN EBCDIC Table 


EBCTB 


3 


FORTRAN Hollerith Table 


HOLTB 


3 


Extended Precision Arithmetic/Function 


EGETP 




Extended Precision Get Parameter 


3 


Extended Precision A**I Function 


EAXI, EAXIX 


3 


Extended Precision Divide 


EDVR, EDVRX 


3 


Extended Precision Float Divide 


EDIV, EDIVX 


3 


Extended Precision Float Multiply 


EMPY, EMPYX 


3 


Extended Precision Subtract Reverse 


ESBR, ESBRX 


3 


Extended Add -Subtract 


EADD, ESUB, 






EADDX, ESUBX 


3 


Extended Load-Store 


ELD, ELDX, ESTO, 






ESTOX 


3 


Standard Precision Arithmetic/Function 


FGETP 




Standard Precision Get Parameter 


3 


Standard Precision A**I Function 


FAXI, FAXLX 


3 


Standard Precision Divide Reverse 


FDVR, FDVRX 


3 


Standard Precision Float Divide 


FDIV, FDIVX 


3 


Standard Precision Float Multiply 


FMPY, FMPYX 


3 


Standard Precision Subtract Reverse 


FSBR, FSBRX 


3 



Type Subtype 



Reference 



Deck ID 



LIBF 


T4A00010 


LIBF 


T4D00010 


LIBF 


T2A00010 


LIBF 


T2B00010 


LIBF 


T2D00010 


LIBF 


T2C00010 


LIBF 


T2E00010 


LIBF 


T5A00010 


LIBF 


T5G00010 


LIBF 


T5J00010 


LIBF 


T5F00010 


LIBF 


T5H00010 


LIBF 


T5I00010 


LIBF 


T5K00010 


LIBF 


T5L00010 


LIBF 


T5D00010 


LIBF 


T5C00010 


- 


T5B00010 


- 


T5E00010 


LIBF 


S1E00010 


LIBF 


S1B00010 


LIBF 


S1D00010 


LIBF 


S1C00010 


LIBF 


S1G00010 


LIBF 


S1H00010 


LIBF 


S1A00010 


LIBF 


S1F00010 


LIBF 


R1E00010 


LIBF 


R1B00010 


LIBF 


R1D00010 


LIBF 


R1C00010 


LIBF 


R1G00010 


LIBF 


R1H00010 
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Function 



Name(s) 



Type Subtype 



Reference 



Deck ID 



Standard Precision Arithmetic/Function (Cont'd) 
Standard Add/Subtract 

Standard Load/Store 



Standard Precision Fraction Multiply 

Common Arithmetic/Function 

Fixed Point (Fraction) Double Divide 
Fixed Point (Fraction) Double 

Multiply 
Sign Reversal Function 
Integer to Floating Point Function 
Floating Point to Integer Function 
I** J Integer Function 
Normalize 
Floating Accumulator Range Check 

Interrupt Service 

Card Input/Output (No Error 

Parameter) 
Card Input/Output (Error 

Parameter) 
Disk Input/Output (No Preoperative 

Parameter Checking) 
Disk Input/Output (No Simultaneity) 
High-Speed Disk Input/Output 

(Simultaneity) 
Paper Tape Input/Output 
Single Frame Paper Tape Input/Output 
Simultaneous Paper Tape Input/Output 
Plotter Output 
1132 Printer Output 
1403 Printer Output 

Keyboard/Console Printer Input/Output 
Console Printer Output 
1231 Optical Mark Page Reader 
2501 Card Input (No Error Parameter) 
2501 Card Input (Error Parameter) 
1442 Card Output (No Error Parameter) 
1442 Card Output (Error Parameter) 



FADD, FSUB, 
FADDX, FSUBX 

FLD, FLDX, 
FSTO, FSTOX 

XMDS 



XDD 

XMD 

SNR 

FLOAT 

IFK 

FBQ, FKK 

NORM 

FARC 



LIBF 


R1A00010 


LIBF 


R1F00010 


LIBF 


S3I00010 


LIBF 


S3G00010 


LIBF 


S3H00010 


LIBF 


S3F00010 


LIBF 


S3C00010 


LIBF 


S3D00010 


LIBF 


S3B00010 


LIBF 


S3E00010 


LIBF 


S3A00010 



CARDO 


5 





LIBF 


U2A00010 


CARD1 


5 





LIBF 


U2B00010 


DISKZ* 


_ 


- 


Special 


- 


DISK1* 


- 


- 


LIBF 


- 


DISKN* 


_ 


_ 


LIBF 


_ 


PAPT1 


5 





LIBF 


U2D00010 


PAPTX 


5 





LIBF 


U2F00010 


PAPTN 


5 





LIBF 


U2E00010 


PLOT1 


5 





LIBF 


U2G00010 


PRNT1 


5 





LIBF 


U2J00010 


PRNT3 


5 





LIBF 


U2K00010 


TYPEO 


5 





LIBF 


U2N00010 


WRTYO 


5 





LIBF 


U2O00010 


OMPR1 


5 





LIBF 


U2C00010 


RE ADO 


5 





LIBF 


U2L00010 


READ1 


5 





LIBF 


U2M00010 


PNCHO 


5 





LIBF 


U2H00010 


PNCH1 


5 





LIBF 


U2I00010 



*Note: Whereas DISKZ, DISK1, and DISKN are not strictly ISS subroutines (they are stored in the System Area 
by the System Loader) , they are included in this list because they possess many characteristics of ISS 
subroutines. 
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Function 



Name(s) 



Type Subtype 



Reference 



Deck ID 



Conversion 

16 bits to 6 Decimal Characters (Card 

Code) 
32 bits to 11 Decimal Characters 
16 Bits to 4 Hexadecimal Characters 

(Card Code) 
6 Decimal Characters (Card Code) 

to 16 bits 
11 Decimal Characters to 32 bits 
EBCDIC to Console Printer Output 

Code 
Card Code to EBCDIC, EBCDIC to 

Card Code 
Card Code to Console Printer 

Output Code 
4 Hexadecimal Characters (Card 

Code) to 16 bits 
PTTC/8 to EBCDIC, EBCDIC to 

PTTC/8 
PTTC/8 to Card Code, Card Code 

to PTTC/8 
PTTC/8 to Console Printer Output 

Code 
Card Code to EBCDIC, EBCDIC to 

Card Code 
Fast multi-purpose conversion 

Conversion Tables 



EBCDIC and PTTC/8 Table 

Card Code Table 

Console Printer Output Code Table 

EBCDIC to IBM Card Code 

1403 Code to Console Printer Code 

Console Printer Code to 1403 Code 

1403 Code to EBCDIC 

EBCDIC to 1403 Code 

IBM Card Code to Console Printer 

Code 
Console Printer Code to IBM Card 

Code 
Console Printer Code to EBCDIC 
EBCDIC to Console Printer Code 
PTTC/8 Code to IBM Card Code 
IBM Card Code to EBCDIC 
IBM Card Code to 1403 Printer Code 

SCA Subroutines 



BINDC 
BIDEC 

BINHX 

DCBIN 
DECBI 

EBPRT 

HOLEB 

HOLPR 

HXBIN 

PAPEB 

PAPHL 

PAPPR 

SPEED 
ZIPCO 



EBPA 

HOLL 

PRTY 

EBHOL 

PT3CP 

CPPT3 

PT3EB 

EBPT3 

HOLCP 

CPHOL 
CPEBC 
EBCCP 
PTHOL 
HLEBC 
HLPT3 

SCAT1 
PRNT2 
HOLCA 
STRTB 
SCAT 2 
SCAT 3 



LIBF 


U4B00010 


LIBF 


U4A00010 


LIBF 


U4C00010 


LIBF 


U4G00010 


LIBF 


U4H00010 


LIBF 


U3A00010 


LIBF 


U3B00010 


LIBF 


U3C00010 


LIBF 


U3D00010 


LIBF 


U3E00010 


LIBF 


U3F00010 


LIBF 


U3G00010 


LIBF 


U3H00010 


LIBF 


U3I00010 


_ 


U4K00010 


- 


U4P00010 


- 


U4Q00010 


- 


U4J00010 


- 


U4R00010 


- 


U4F00010 


- 


U4S00010 


- 


U4L00010 


- 


U4O00010 


- 


U4E00010 


- 


U4D00010 


- 


U4I00010 


- 


U4T00010 


- 


U4M00010 


" 


U4N00010 


LIBF 


W1F00010 


LIBF 


W1E00010 


- 


W1C00010 


- 


W1G00010 


LIBF 


W1H00010 


LIBF 


W1I00010 
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Function 
SCA Subroutines (Cont'd) 



Mainline 

Initialize Disk Cartridge 
Print Cartridge ID 
Write Cartridge ID 
Copy Disk Cartridges 
Write WS Addresses 
Delete CIB 

Maintenance Program 
Dump SLET 
Paper Tape Utility 

System/Miscellaneous 

Call System Print Subroutine 
Fetch Phase IDs from SLET 
Fetch System Subroutine 
Read *ID Record and Convert 

Interrupt Level Subroutines 

Interrupt Level Zero Subroutine 
Interrupt Level One Subroutine 
Interrupt Level Two Subroutine 
Interrupt Level Three Subroutine 
Interrupt Level Four Subroutine 

1627 Plotter Subroutines 

Scale (Extended Prec.) 
Scale (Std. Prec.) 
Grid (Extended Prec.) 
Grid (Std. Prec.) 
Plot (Extended Prec.) 
Plot (Std. Prec.) 
Point Characters 
Character (Extended Prec.) 
Character (Std. Prec.) 
Annotation (Extended Prec.) 

Annotation (Std. Prec.) 

Scaler (Extended Prec.) 
Scaler (Std. Prec.) 
Interface 
Pen Mover 
1627 Plot 



Name(s) 


Type 
3 


Subtype 



Reference 


Deck ID 


HXCV 




W1D00010 


EBC48 


3 





- 


W1A00010 


HOL48 


3 





- 


W1B00010 


DISC 


2 


_ 


. 


U6C00010 


IDENT 


2 


- 


- 


U6F00010 


ID 


2 


- 


- 


U6G00010 


COPY 


2 


- 


- 


U6B00010 


ADRWS 


2 


- 


- 


U6A00010 


DLCIB 


2 


- 


- 


UGD00010 


MODIF 


2 


- 


- 


U6H00010 


DSLET 


2 


- 


- 


U6E 00010 


PTUTL 


2 


- 


- 


U6I00010 


CALPR 


4 





CALL 


U7A00010 


FSLEN 


4 





CALL 


U7B00010 


FSYSU 


4 





CALL 


U7B00010 


RDREC 


4 





CALL 


U7C00010 


ILSOO 


7 


. 


. 


U1A00010 


ILS01 


7 


- 


- 


U1B00010 


ILS02* 


7 


1 


- 


U1C00010 


ILS03 


7 


- 


- 


U1D00010 


ILS04* 


7 


1 


- 


U1E00010 


SCALE 


4 





CALL 


V1N00010 


SCALF 


4 





CALL 


V1O00010 


EGRID 


4 





CALL 


V1C00010 


FGRID 


4 





CALL 


V1H00010 


EPLOT 


4 





CALL 


V1D00010 


FPLOT 


4 





CALL 


V.LI00010 


POINT 


4 





CALL 


V1M00010 


ECHAR 


4 





CALL 


V1A00010 


FCHAR 


4 





CALL 


V1F00010 


E CHRX , E CHRI , 










VCHRI 


3 





LIBF 


V1B00010 


FCHRX, FCHRI, 










WCHRI 


3 





LIBF 


V1G00010 


ERULE 


3 





LIBF 


V1E00010 


FRULE 


3 





LIBF 


V1J00010 


PLOTI 


3 





LIBF 


V.LK00010 


XYPLT 


3 





LIBF 


V1P00010 


PLOTX 


5 





LIBF 


V1L00010 



*These are special versions that consist only of IBT information. 
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INTERRUPT LEVEL SUBROUTINES 



INTERRUPT LEVEL TWO SUBROUTINE (ILS02) 

This interrupt level subroutine is actually a part 
of the Skeleton Supervisor. However, the Core 
Load Builder requires that a dummy ILS for level 
two be stored in the System Library. The dummy 
supplied by IBM is stored in the System Library 
as subtype 1, type 7. The coding in the dummy 
ILS02 is immaterial, because the Core Load Builder 
merely bypasses it when it discovers the subtype 1. 

If the user supplies his own ILS02, it must be 
stored in the System Library as subtype 0, type 7. 



INTERRUPT LEVEL FOUR SUBROUTINE (ILS04) 

This interrupt level subroutine is actually a part 
of the Skeleton Supervisor. However, the Core 
Load Builder requires that a dummy ILS for level 
four be stored in the System Library. The dummy 
supplied by IBM is stored in the System Library 
as subtype 1, type 7. The dummy ILS04 consists 
only of a nine-word table followed by a zero, as 
follows: 



II 1 




17 » 


« n 


JS » 


<5 SO !! X .! 






ac, , 




A94.3.4*. , , 


, £,£.S.E,RI/,E.a , , , 






D.C, . 




A,0.43.4. , , 


, Jl,E,S,£,R,V,E,D, , , , , , ,,,',, 






D.C. . 




A0,4,3,4. , , 


, ,R.E,S.E,R,V,E,D, 






p.c. , 




A0.43E, . . 


, ,1.2,3,1 






P.C, . 




A0.4.3.D, , . 


, ,1,4,03, 






ac, , 




A.0,438, , . 


, ,2,5,0,1 






DC, , 




A,0,73,5, , , 


, ,1,4,4,1 , 






p,c, . 




/ ,0,4,3,6, , , 


, X£,Y,B,0.A,R,py,C,0M3,0,l,£, ,P,R,I ,N,T,E.R, 






D,C, , 




/a ,43,7, . , 


, ,1,1, 3,4,/, 1,0,5,5, 






P,C, . 




& 


, ,£MPr,0,F,-,T.A.aL,£. ,I,M,P,I,C,A.T.O,R, . , 






, , , 






i i i i i i i i i i • i.i 



The leftmost eight bits of each word contain the 
relative entry point to the ISS for the associated 
device, and the rightmost eight bits contain @ISTV 
plus the ISS number. These eight words are used 
by the Core Load Builder to construct the IBT for 
interrupt level 4. 



If the user supplies his own ILS04, it must be 
stored in the System Library as subtype 0, type 7. 



MAINLINE PROGRAMS 



DISK INITIALIZATION PROGRAM (DISC) 

The disk initialization program has three basic 
functions: 

• Establishes that the cartridges specified in the 
*ID record have no more than 3 defective cyl- 
inders and that cylinder is not defective 

• Changes the cartridge labels as specified in the 
*ID record 

• Initializes portions of sectors 0, 1, and 2 to set 
up the cartridges specified as non-system car- 
tridges 

DISC first reads an *1D record to obtain FROM 
and TO cartridge IDs. It then reads current car- 
tridge IDs from the master cartridge DCOM 
(#PCID) and compares them with the FROM IDs 
specified in the *ID record. If there are any IDs 
not found, an error message is printed on the 
principal print device. 

DISC next seeks home on all drives to be 
initialized (up to four) , and writes each of 3 
patterns to an entire cylinder, one sector at a time. 
The patterns used, in sequence, are /AAAA, /5555, 
and /0000. 

DISC then reads back each sector and compares 
it with the pattern written (including the sector ad- 
dress). If no error occurs, DISC writes the next 
pattern to the same cylinder. 

If the error bit of the DSW is set at any time or 
if the data read does not compare with the pattern 
written, DISC repeats the write/read sequence for 
the entire cylinder 50 times, using the same pattern. 

If a second error occurs, DISC puts the address 
of the first sector on the cylinder in which the error 
occurred in the defective cylinder table. 

DISC performs this write/read sequence for 
each of the 203 cylinders. 
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If (1) cylinder zero is defective, (2) more than 
three cylinders are defective, or (3) it is impossible 
to write a sector address, DISC types out an error 
message indicating that the cartridge may not be 
used. 

If the cartridge is good, DISC writes the defective 
cylinder addresses, if any, in the first three words 
of sector @IDAD. Wherever a defective cylinder 
does not exist, /0658 is written in the first three words 
of sector @IDAD. DISC also writes the cartridge ID 
in word four of sector @IDAD , writes zeros in words 
7-30, and stores an error message program beginning 
in word 31. If a cold start is attempted using this 
non-system cartridge, control is passed from the 
Cold Start Loader to the error message program 
instead of the Cold Start Program. An error mes- 
sage is printed on the Console Printer and no cold 
start is effected. 

DISC initializes the following words of DCOM 
(sector @DCOM): 



Location 


Value Inserted 


#ANDU 


/0200 


#BNDU 


/0200 


#FPAD 


/0020 


#CIDN 


Cartridge ID 


#CIBA 


/0008 


#ULET 


/0002 



DISC initializes LET (sector 2) as follows: 



Word 
1 
2 
3 
4 
5 
6 



Contents 
/0000 
/0020 
/0000 
/0138 

/oooo^ 

/7112 The name 



/4528 
/0620 



DISC terminates with a CALL EXIT. 



1DUMY (in 
name code) 



subroutine FSLEN. This IOAR header is used to 
call in the principal print device subroutine when 
it is needed by FSYSU. 

Next, IDENT reads DCOM to obtain #PCTD, the 
table of disk cartridge IDs and their related physical 
drive numbers. 

IDENT then prints the cartridge ID and physical 
drive number from the table until all available car- 
tridge IDs have been printed. 

IDENT terminates with a CALL EXIT. 



CHANGE CARTRIDGE ID (ED) 

This program changes the ID on up to four disk car- 
tridges. 

The IOAR headers for the principal input device, 
principal print device , and principal conversion 
subroutines are obtained from SLET on this system 
cartridge. These subroutines are used for input/ 
output. 

Using the RDREC subroutine, the *ID record is 
fetched. RDREC also builds two tables in core 
storage from the FROM-TO fields of the *ED record, 
one in packed EBCDIC for printer output, the other 
in binary for matching the cartridge IDs. DCOM 
is fetched from the master cartridge to obtain the 
cartridge ID table (#CIDN) . 

Each drive on the system is selected. If the 
selected drive is present, the cartridge ID 1 is 
fetched. The ID is matched with the IDs in #CIDN. 
If no matching ID is found, the ID is printed with 
an error message and the job is terminated. The 
cartridge ID of the selected drive is matched to the 
IDs in the FROM-TO table. When a match occurs, the 
cartridge ID is changed to the 'TO' ID; the ID for 
the cartridge in #CIDN is changed and the 'TO' ID 
is written onto the selected drive. IDs that do not 
match entries in the FROM-TO table are bypassed. 

When all IDs have been processed, #CIDN is 
written back to the master cartridge and the FROM- 
TO table is printed. After printing the FROM-TO 
table, ID terminates with a CALL EXIT. 



PRINT CARTRIDGE ID (IDENT) 

This program prints out the ID and the physical drive 
number of each disk cartridge mounted on the system. 

IDENT first fetches the principal print device 
subroutine IOAR header from SLET using the 



DISK COPY (COPY) 

This program copies the contents of one or more 
cartridges (except words 0-3 of sector @IDAD) onto 
from one to four other cartridges. 

COPY first fetches the system device subroutine 
IOAR headers from SLET using the RDREC subroutine. 
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The system device subroutines are called in by the 
RDREC subroutine as they are needed by the pro- 
gram. The RDREC subroutine also reads the *ID 
record and converts the numbers to binary and 
stores them in the FROM-TO table. 

COPY then checks the FROM and TO field IDs 
to ensure that each specified cartridge is available. 
An error message is printed for the unavailable 
FROM or TO cartridges. 

All available FROM-TO cartridge combinations 
are then processed. Sectors thru 7 of cylinder 
of each source cartridge are read and written, ex- 
cept for the defective cylinder table, to each speci- 
fied destination cartridge. Sectors thru 7 of the 
next 199 logical cylinders of each source cartridge 
are copied, 4 sectors at a time to each specified 
destination cartridge. 

One cartridge at a time is processed and at the 
end of each, a check for a Keyboard interrupt is 
made. If any occurred during the previous copy, 
the interrupt is now processed. 

After all cylinders from the specified cartridge 
have been copied, a completion message is printed 
using the principal print device subroutine. 

COPY terminates with a CALL EXIT. 



DLCIB uses the subroutine RDREC to obtain 
the system device subroutine IOAR headers from 
SLET on the master cartridge and to fetch the *ID 
record containing the affected cartridge ID. The 
RDREC subroutine also converts the specified 
cartridge ID to binary. 

If the specified cartridge is not present, DLCIB 
prints an error message and terminates with a 
CALL EXIT. 

The CIB of the specified cartridge is deleted. 
The User Area and Working Storage are moved 
one cylinder closer to cylinder zero. Accordingly, 
the file -protection address for the specified car- 
tridge is altered in the $FPAD quintuple in COMMA. 

DCOM of the master cartridge is then read. 
The sector addresses of the CIB, User Area, and 
Working Storage are altered. DCOM is written 
back to the master cartridge and to the altered 
cartridge. 

DLCIB prints the new User Area and Working 
Storage addresses for the specified cartridge using 
the principal print device subroutine. 

DLCIB terminates with a CALL EXIT. 



DUMP SLET TABLE (DSLET) 



DELETE CIB (DLCIB) 

This program deletes the Core Image Buffer (CIB) 
from a non- system cartridge to provide additional 
disk storage area for the User Area and Working 
Storage. An *ID record is used to specify the car- 
tridge on which the CIB is to be deleted. 



DSLET dumps the System Location Equivalence 
Table (SLET) to the principal print device. Four 
4 -word SLET entries are printed per line. 

DSLET reads the SLET table into a 640-word 
buffer in core storage, prints the SLET table using 
the principal print device subroutine, and terminates 
with a CALL EXIT. 
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SECTION 13. SYSTEM DEVICE SUBROUTINES 



The system device subroutines are a group of Console Printer Subroutine 

special subroutines used exclusively by the moni- 2501/1442 Subroutine 

tor system programs. These are the only device 1442/1442 Subroutine 

subroutines used by the monitor system programs, 1134/1055 Subroutine 

aside from DISKZ. They are listed below: Keyboard/Console Printer Subroutine 

2501/1442 Conversion Subroutine 

DISKZ 1134/1055 Conversion Subroutine (dummy) 

1403 Subroutine Keyboard/Console Printer Conversion Sub- 
1132 Subroutine routine (dummy) 
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SECTION 14. STAND-ALONE UTILITIES 



DISK CARTRIDGE INITIALIZATION PROGRAM 
(DCIP) 



When DCIP is entered, a message is printed in- 
structing the user to select the particular DCIP 
function desired. Depending on his choice, one of 
the functions described below is performed. 

All messages, entries through the Console Entry 
switches, and operator instructions are printed on 
the Console Printer. All user options are entered 
through the Console Entry switches. 



DISK INITIALIZATION 

A message is printed instructing the user to specify 
the number of the physical drive on which is mounted 
the cartridge to be initialized. At the same time, 
the user is given the option of doing an "address 
only" initialization, that is, an initialization that 
writes correct addresses on a cartridge without 
disturbing any of the data on that cartridge. The 
user is then asked to specify the cartridge ID. 

An entire cylinder of the cartridge is written with 
one of three test patterns. The patterns used are 
/AAAA, /5555, and /0000. The cylinder is then 
read back into core storage, one sector at a time, 
using double-buffering. 

While one sector is being read, every word of 
another is being examined to see that it compares 
with the data that was written. If no errors occur 
in any sector of the cylinder, the same procedure is 
repeated for the next pattern, and so on until all 
three patterns have been tested. 

However, if any disk operation causes the error 
bit of the disk device status word (DSW) to be set, or 
if the data read does not compare with that written, 
then the entire write/read/compare procedure is 
repeated fifty times on the same cylinder with' the 
same test pattern. A second error, while in the 
retry mode, causes DCIP to indicate the cylinder as 
being defective. 

If (1) cylinder zero is defective, (2) more than 
three cylinders are defective, or (3) it is impossible 
to write a sector address, DCIP types out an error 
message indicating that the cartridge may not be 
used. 



After every cylinder on the cartridge has been 
tested in the above manner, the program writes three 
defective cylinder addresses and the cartridge ID into 
the first four words of sector @IDAD. Where defec- 
tive cylinder addresses do not exist, /0658 is written. 
Words 7-30 of sector @IDAD are set to zeros. DCIP 
also writes an error message program, beginning at 
word 31. If a cold start is attempted using this non- 
system cartridge, the error message program prints 
an appropriate message and no cold start is effected. 

DCOM (sector @DCOM) is initialized as follows: 



Location 


Value Inserted 


#ANDU 


/0200 


#BNDU 


/0200 


#FPAD 


/0020 


#CIDN 


Cartridge ID 


#CIBA 


/0008 


#ULET 


/0002 



LET (sector 2) is initialized as follows: 
Word Contents 

1 /0000 

2 /0020 

3 /0000 

4 /0138 

5 /0000 

6 j /7112 | The name 1DUMY (in name 

7 J /4528lcode) 

8 /0620 

A message indicating that the initialization is com- 
plete and the addresses of any defective cylinders are 
printed on the Console Printer. 

At this time, the user is given the option of doing 
additional testing of the disk; i. e. , the write/read/ 
compare sequence may be repeated up to 31 times. 



DISK DUMP 

The principal print device is determined by first 
initiating a carriage space operation on the 1403 
Printer. The device status word (DSW) for the 1403 
is then sensed to see if the 1403 is busy. If it is not, 
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the same procedure is followed with the 1132 Printer. 
On the basis of the results of the above test, a word 
that points to the appropriate conversion table and a 
branch instruction that branches to the proper printer 
call are set up. 

The user enters through the Console Entry 
switches the sector address (with the drive code) of 
the first sector to be dumped and the number of con- 
secutive sectors to be dumped. 

The logical sector address is determined in the 
following manner. The physical sector address is 
decremented by eight for each defective cylinder 
that has a lower sector address less than the cylinder 
to be dumped from. If the sector being dumped is on 
a defective cylinder, the sector is assigned the log- 
ical sector address of DEAD. Defective cylinder 
data for the cartridge is obtained from sector @IDAD. 

Each of the 320 data words of the sector is con- 
verted from binary to four hexadecimal characters of 
the appropriate printer code. The data is then 
printed, sixteen words per line. 



DISK COPY 

DCIP requests the user to enter the numbers of the 
source and destination drives in the Console Entry 
switches. The defective cylinder table from the 
source cartridge is fetched and checked to verify that 
the values in it are under 1624 and in ascending 
order. 

The source cartridge is copied sector by sector 
onto the destination cartridge. The cartridge ID 
and defective cylinder table in sector 0, cylinder 
are not copied onto the destination cartridge. If a 
system cartridge is being copied, the cartridge ID 
found in DCOM is also not copied. 



If a cylinder on the source cartridge is defective, 
the following cylinder is copied to the destination 
cartridge. If a cylinder on the destination cartridge 
is defective, the cylinder to be copied from the source 
cartridge is copied onto the following cylinder. 



UCART 



The user receives the 1130 Disk Monitor System on a 
disk cartridge. The contents of this cartridge are 
as follows: cylinder contains a copy of the Resident 
Image, including DISKZ, a copy of the CARDO sub- 
routine, a special cold start program, and a disk-to- 
card dump program; cylinders 1 through 202 contain 
the system decks stored in card images, four cards 
per sector. 

The execution of a cold start with this cartridge 
causes sector 0, cylinder to be fetched. Sector 0, 
cylinder contains DISKZ and the special cold start 
program. DISKZ is loaded into the locations it 
normally occupies in the Resident Monitor; the spec- 
ial cold start program immediately follows it. Con- 
trol is transferred to the special cold start program. 

The special cold start program fetches the Resi- 
dent Image (sector 2, cylinder 0) into the locations it 
normally occupies in low core storage, fetches the 
CARDO subroutine (sector 3, cylinder 0) into core 
storage at /0250, and fetches the disk-to-card dump 
program into core storage at /0390. Control is 
transferred to the disk-to-card dump program, which 
punches the svstem decks and terminates. 

The disk-to-card dump program uses a one- 
cylinder buffer origined at its high-addressed end. 
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PROGRAM ANALYSIS PROCEDURES 



INTRODUCTION 



PROGRAM ANALYSIS PROCEDURES SUMMARY 



The purpose of the Program Analysis Procedures 
is to provide the user with a step-by-step method 
for analyzing the execution of any monitor system 
or user program. The procedure is problem- 
oriented; it begins with some program malfunc- 
tion, assists the user in defining the failing com- 
ponent or function, and provides the facility for 
detailed analysis of that component or function. 



Flowdiagram 1 shows the procedure used for program 
analysis. At each step in the procedure, the parts of 
this document that apply to that step are indicated. 

IDENTIFICATION OF THE FAILING COMPONENT 
OR FUNCTION 

Flowdiagram 2 shows the procedure used to identify 
the component or function failing. Where applicable 
the parts of this document that are pertinent to that 
identification are indicated. 



Step 



Analysis Procedure 



Supporting Documentation 



o 

























( Start J 


\ 


' 




Determine which program is failing . If it is 
a subroutine, determine its name and its 
location in core . 




\ 


' 




Get a ful 1 core dump . 




1 


' 




Block out and identify the significant items 
in the core dump listing . 




< 


' 




Analyze the failing subroutine: 
-Correct input -Data 
parameters -To and from Linkage 
-Function code -I/O area 






1 


1 




If necessary, determine which program 
called the failing subroutine and where it 
is located in core . 


1 


r 




Analyze the calling program for correct 
parameters and linkage. If necessary, con- 
tinue tracing back several levels of calls. 


} 


\ 





Subroutine 
Data Charts 



Flowdiagram 1 . General Procedure for Program Analysis 
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Reference 



Analysis Procedure 



Su pporting Documentation 



( Start J 



Contents of 
$PHSF. 



Contents of 
$PRET 



Contents of: 
$PST1 Level 1 
$PST2 Level 2 
$PST3 Level 3 
$PST4 Level 4 




Non-Zero 




Other Errors; 
Incorrect 
Answer, etc . 



Dump as soon 
as possible 
after the fail- 
ure; 



Yes 



Yes 



Monitor System Program execution 
-A DSLET Listing will provide 
reference to phase ID 



Yes 




Pre-operative I/O Error 
-Invalid Control Function 








-Device Not Ready 








1 










' 








Error number in ACC 
should identify subroutine. 
Go to Subroutine 
Maintenance Analysis Procedure 


J 




Subroutine 
Error Number 
List 










Yes 




Post-operative I/O Error 








-Error Bits in DSW 









Using IAR contents, go to step 1 1 
in Trace Back Procedures 



Using IAR, XR1, XR2, XR3, ACC, 
EXT, attempt to correlate back to 
program. Go to step 11 in Trace 
Back Procedures 



T 
I 



. I 




Program 
Analysis 
Procedures 



Flowdiagram 2. Procedure for Identification of the Failing Component or Function 
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SUBROUTINE ERROR NUMBER/ERROR STOP 
LISTS 



Table 8 lists the errors detected by the System 
Library ISSs and system device subroutines by 
error code, describes the conditions under which 
the error is detected, and provides a list of cor- 
rective actions for those errors. 

Table 9 lists the error stop addresses and their 
meanings. 



CORE DUMP PROCEDURE 



To obtain a dump of the contents of core storage, 
perform the following (see Flowdiagram 3): 

1. If the error symptoms indicate that an error 
has occurred in the disk or disk I/O subroutine 
(i.e. DISKZ), the System Core Dump program 
should not be used, because this same disk I/O 
subroutine is used to load the System Core 
Dump program, thus destroying the information 
needed. 

2. Was there a NOCAL Dump included in the core 
load? If there was, it may be used to obtain 
the core dump. To obtain the core dump, set 
the IAR to the entry point of the NOCAL Dump 
and start. 

3. If the error symptoms indicate an error in the 
principal print device, then the System Core 
Dump program should not be used, as it would 
destroy any information needed. 

4. To retain the maximum information, the stand- 
alone dump procedure should be used. 

a. By displaying core storage, copy down 
locations /0000 to /0050. 

b. Use the stand-alone printer dump to dump 
the rest of core storage. 

5. To obtain the core dump using the System Core 
Dump program, set the IAR to /0000 and start. 



CORE BLOCK DIAGRAMS 



Figure 17 , panel 1 shows the layout of the contents 
of core storage during the execution of a user's 
FORTRAN core load in which LOCAL subprograms; 



( Start J 



Retain Console 
Information- 
-ACC, EXT, 
XR1,XR2,XR3 
-Lights 
-Device Status 




YES 




YES 



Perform 
NOCAL 
Dump 



YES 



NO 



DUMPCORE 
(stand-alone 
dump) 



Perform 
System 
Dump 



Obtain 
Full Core 
Dump 



Flowdiagram 3. Core Dump Procedure 



files, arrays, and COMMON variables were defined 
and SOCALs were employed. 

Figure 17, panel 2 shows the layout of the contents 
of core storage during the execution of a user's 
FORTRAN core load in which files, arrays, and 
COMMON variables were defined. No LOCALs were 
defined; no SOCALs were employed. 

Figure 17 , panel 3 shows the layout of the contents 
of core storage during the execution of a user's 
FORTRAN core load in which no LOCALs, files, 
arrays, SOCALs were employed. COMMON vari- 
ables were defined. 

Figure 17, panel 4 shows the layout of the contents 
of core storage during the execution of a user's 
Assembler Language core load. 

CORE LOCATION PROCEDURES 

The following core load elements are located by 
means of the procedures given with the elements. 

FAC (Floating Accumulator) 

— 3 words used as FORTRAN Floating Accumulator 

— Located at XR3 + /007D. 
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Table 8 . Error Number List 



HEXADECIMAL 
ERROR NUMBER 

IN 
ACCUMULATOR 


SYMBOLIC 

ERROR STOP 

ADDRESS 


DETECTING 

SUBROUTINE 

DURING SYSTEM 

PROGRAM 

EXECUTION 


DETECTING 
SUBROUTINE 
DURING 
FORTRAN 
CORE LOAD 
EXECUTION 


DETECTING 

SUBROUTINE 

DURING ASSEMBLER 

LANGUAGE CORE 

LOAD EXECUTION 


ERROR EXPLANATION 


CORRECTIVE ACTION 


1000 


$PRET 


System 1442/1442 
Subroutine 


CARDZ 
PNCHZ 


- 


1442 - Device Not Ready 


1442 - Ready the Device 






CARDO 
CARDl 


1442-6,-7 - Device Not Ready 
- Read initiated with 
Last Card Indicator 
on 


PNCHO 
PNCHI 


1442-5 - Device Not Ready 


$PST4 


System 1442/1442 
Subroutine 


CARDZ 
PNCHZ 


CARDO 
CARDl 
PNCHO 
PNCHI 


1442 - Device Not Ready 


1442-5 - Run out the punch 
— Ready the E'evice 


1442-6,-7 - Ready the Device 


1001 


$PRET 






CARDO 
CARDl 
PNCHO 
PNCHI 


1442 - Invalid Device 
Specified 

- Device not on system 

- Invalid Function 
Specified 

- Word Count over +80 

- Word Count zero or 
negative 


1442 - Use Trace Back Procedures 
to analyze calling program 


2000 


$PRET 


System Keyboard 
Subroutine, 
System Keyboard/ 
Console Printer 
Subroutine 


TYPEZ 
WRTYZ 


TYPE0 
WRTY0 


Console Printer/Keyboard 
- Device Not Ready 


Console Printer/Keyboard 
- Ready the Device 


$PST4 


System Keyboard 
Subroutine, 
System Keyboard/ 
Console Printer 
Subroutine 


TYPEZ 
WRTYZ 


TYPE0 
WRTY0 


Console Printer/Keyboard 
- Device Not Ready 


Console Printer/Keyboard 
- Ready the Device 


2001 


$PRET 






TYPE0 
WRTY0 


Console Printer/Keyboard 

- Device not on System 

- Invalid Function 
Specified 

- Word Count zero or 
negative 


Console Printer/Keyboard 

- Use Trace Back Procedures 
to analyze calling program 


3000 


$PRET 


System 1134/1055 
Subroutine 


PAPTZ 


PAPT1 
PAPTX 
PAPTN 


1134/1055 - Device Not Ready 


1134/1055 - Ready the Device 


$PST4 


System 1134/1055 
Subroutine 


PAPTZ 


PAPT1 
PAPTX 
PAPTN 


1134/1055 - Device Not Ready 


1 134/1055 - Ready the Device 


3001 


$PRET 






PAPT1 
PAPTX 
PAPTN 


1134/1055 - Invalid Function 
Specified 

- Invalid Check Digit 

- Word Count zero or 
negative 


1134/1055 - Use Trace Back 
Procedures to 
analyze calling 
program 


4000 


$PRET 


System 2501/1442 
Subroutine 


READZ 


READ0 
READ1 


2501 - Device Not Ready 


2501 - Ready the Device 


$PST4 




READZ 


READO 
READ1 


2501 - Device Not Ready 

- Read Error 

- Feed Check 


2501 - Ready the Device 

- Run out the reader and 
retry with last card read 
and cards run out 
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Table 8. Error Number List (Continued) 



4001 


$PRET 






READO 
READl 


2501 - Invalid Function 
Specified 

- Word Count over +80 

- Word Count zero or 
negative 


2501 - Use Trace Back Procedures 
to analyze calling program 


5000 


$PRET 


DISKZ 


DISKZ 


DISKZ 
DISK1 
DISKN 


Disk - Device Not Ready 


Disk - Ready the Device 


5001 


$PRET 






DISK1 
DISKN 


Disk - Invalid Device Specified 

- Device not in System 

- Invalid Function 
Specified 

- Area to be written 
Fi le-protected 

- Word Count zero or 
negative 

- Starting Sector Address 
over +1 599 


Disk - Use Trace Back Procedures 
to analyze calling program 


$PST2 


DISKZ 


DISKZ 


DISKZ 
DISK1 
DISKN 


Disk - Power Unsafe 
- Write Select 


Disk - Turn power down, wait for 
CARTRIDGE UNLOCKED 
light to come on, turn 
power up, then retry 
- Call CE on persistent error 


5002 


$PST2 


DISKZ 


DISKZ 


DISKZ 
DISK1 
DISKN 


Disk - 16 retrys made without 
success 


Disk - Initiate 16 more retrys 

- Use another drive 

- Use another cartridge 

- Reinitialize cartridge 


5003 


$PRET 


DISK1 
DISKN 






Disk - Invalid Device Specified 

- Device not in System 

- Invalid Function 
Specified 

- Area to be written 
File-protected 

- Word Count zero or 
negative 

- Starting Sector Address 
over +1599 


Disk - Use Trace Back Procedures 
to analyze calling program 


5004 


$PST2 


DISKZ 


DISKZ 


DISKZ 


Disk - Disk Error 


Disk - Turn power down, wait for 
CARTRIDGE UNLOCKED 
light to come on, turn 
power up, then retry 
- Call CE on persistent error 


6000 


$PRET 


System 1 1 32 
Subroutine 


PRNTZ 


PRNTl 
PRNT2 
PRNT3 


1132 - Device Not Ready 
- End of Forms 


1 1 32 - Ready the Device 


6001 


$PRET 






PRNTl 
PRNT2 
PRNT3 


1 1 32 - Invalid Function 
Specified 

- Word Count over +60 

- Word Count zero or 
negative 


1 1 32 - Use Trace Back Procedures 
to analyze calling program 


7000 


$PRET 


- 


- 


PLOT1 


1627 - Device Not Ready 


1627 - Ready the Device 


$PST3 


- 


- 


PLOT1 


1627 - Device Not Ready 


1627 - Ready the Device 


7001 


$PRET 






PLOT1 


1627 - Invalid Device Specified 

- Device not on System 

- Invalid Function 
Specified 

- Word Count zero or 
negative 


1627 - Use Trace Back Procedures 
to analyze calling program 


8001 


$PRET 






SCAT1 
SCAT2 
SCAT3 


SCA - Invalid Function 
Specified 

- Invalid Word Count 

- Invalid Subfunction 
Specified 


SCA - Use Trace Back Procedures 
to analyze calling program 
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Table 8. Error Number List (Concluded) 



8002 


$PRET 






SCAT1 


SCA - Receive operation 
not completed 
- Transmit operation 
not completed 


SCA - Use Trace Back Procedures 
to analyze calling program 


8003 


$PRET 






SCAT1 


SCA - Synchronization not 
established before 
attempting to perform 
some Transmit or 
Receive Operation 
- Attempting to Receive 
before receiving INQ 
sequence 


SCA - Use Trace Back Procedures 
to analyze calling program 


9000 


$PRET 


System 1403 
Subroutine 


PRNZ 


PRNT3 


1403 - Device Not Ready 
- End of Forms 


1403 - Ready the Device 


$PST4 


System 1403 
Subroutine 


PRNZ 


PRNT3 


1403 - Device Not Ready 
- Print Error 


1403 - Ready the Device 


9001 


$PRET 






PRNT3 


1403 - Invalid Function 
Specified 

- Word Count over +60 

- Word Count zero or 
negative 


1403 - Use Trace Back Procedures 
to analyze calling program 


A000 


$PRET 


- 


- 


OMPR1 


1231 - Device Not Ready 


1231 - Ready the Device 


$PST4 






OMPR1 


1231 - Device Not Ready 

- Timing Mark Error 

- Read Error 


1231 - Ready the Device 

- Retry with the sheet that 
has been selected into 
the stacker 


A001 


$PRET 


- 


- 


OMPR1 


1231 - Invalid Function 
Specified 


1231 - Use Trace Back Procedures 
to analyze calling program 



Table 9. Error Stop List 



Absolute Address 


Symbolic Address 


Program 


Explanation 


/0014 




Cold 
Start 
Loader 


-Invalid disk drive number 
in Console Entry Switches 

-Indicated disk drive not 
ready 


/0044 


- 


Cold 
Start 
Loader 


-Disk read error 
-Waiting for interrupt from 
seek operation 


/004o 


- 


Cold 
Start 
Loader 


-Waiting for interrupt from 
reading sector @IDAD 


/0029 


$PRET + 1 


All ISSs 


-Preoperative Error 


/0082 


$PST1+1 


Level 1 
ISSs 


-Post-operative Error on 
level 1 


/0086 


$PST2 + 1 


Level 2 
ISSs 


-Post-operative Error on 
level 2 


/008A 


$PST3 + 1 


Level 3 
ISSs 


-Post-operative Error on 
level 3 


/008E 


$PST4 + 1 


Level 4 
ISSs 


-Post-operative Error on 
level 4 



ARITHMETIC AND FUNCTION SUBPROGRAM 
ERROR INDICATORS 

— 3 words preceding FAC. 

— First word (XR3 + /007A) is used for real arith- 
metic overflow and underflow indicators,, 

— Second word (XR3 + /007B) is used for divide 
check indicator. 

— Third word (XR3 + /007C) is used for function 
subroutine indicators. 

— The loader initializes all three words to zero. 



LIBF TV (Library Function Transfer Vector) 

— One 3-word entry for each LIBF listed in the 
core map. 

— Located just preceding ARITH/FUNC ERROR 
INDICATORS . 

— Higher core end is located at XR3 + /0079. 

-- First LIBF Entry (the beginning of LIBF TV) is 
located at (XR3 + /0077) - (3 times the number 
of LIBFs listed in core map). 
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© 


© 


© 


© 


COMMA, 
Skeleton 
Supervisor 


COMMA, 
Skeleton 
Supervisor 


COMMA, 

Skeleton 

Supervisor 


COMMA, 
Skeleton 
Supervisor 


DISKZ 


DISKZ 


DISKZ 


DISK1 

or 
DISKN 


DEFINE FILE 
Table 


DEFINE FILE 
Table 


Constants, 
Integers 


Mainline 
Program 


Arrays 


Arrays 


Format 
Parameters 


Mainline 
Program 


Constants, 
Integers 


Constants, 
Integers 


Format 
Parameters 


Format 
Parameters 


Mainline 
Program 


Mainline 
Program 


In-Core 
Subroutines 


In-Core 
Subroutines 


In -Core 
Subroutines 


In-Core 
Subroutines 


Flipper 
Table 


Interrupt 

Level 

Subroutines 


FLIPR 


Interrupt 

Level 

Subroutines 


Interrupt 

Level 

Subroutines 


LOCAL 
Area 




SOCAL 
Area 


IP 


i 


Interrupt 

Level 

Subroutines 


WM 


LIBF TV 


LIBF TV 


LIBF TV 


CALL TV 


CALL TV 


CALL TV 


COMMON 


COMMON 


COMMON 


LIBF TV 


CALL TV 



Figure 17. Core Layout During User Core Load Execution 

LIBF TV SOCAL LINKAGE 

— The 6 or 9 words used to link to the SOCAL / 
LOCAL Flipper. 

— Located just preceding the First LIBF Entry in 
the LIBF TV. 



— 6 words long if SOCAL option 1; 9 words long if 
SOCAL option 2. 

CALL TV (Call Transfer Vector) 

— One single-word entry for each call listed in the 
core map. 

— Located immediately following FAC. 

— First CALL TV Entry is at XR3 + /0080 (add 1 if 
address comes out odd). 

— The Last CALL TV Entry is at ( First CALL TV 
Entry- 1) - (Number of CALLs listed in the core 
map). 

DISK I/O SUBROUTINE 

— All Disk I/O subroutines are loaded beginning 
at CORE LOCATION /00F2. 

— The Disk I/O subroutines vary in length (see table) 

— The type of disk subroutine in core is contained in 
$DZ1N (see table) 



Contents 
of $DZ1N 


Disk I/O 

Subroutine 

Currently 

in Core 


Location in 
Core 


First 

Word 

of User's 

Program 


First 
Word 


Last 
Word 


FFFF 

0000 

0001 


DISKZ 
DISK1 
DISKN 


/00F2 
/00F2 
/00F2 


/01DF 

/0293 

/03A1 


/01FE 
/02B2 
/03C0 



DFT (DEFINE FILE Table) 

— 7 words for each file defined by the user. 

— Located at 1 plus the end of the disk I/O subroutine. 

ARRAYS (In User's Program Area) 

— Located immediately following DEFINE FILE 
Table, if any. 

CONSTANTS AND INTEGERS (In User's Program 
Area) 

— Located immediately following ARRAYS , if any. 

COMMON (The area at "End of Core" defined by 
COMMON statement) 

— Length of COMMON is contained in $COMN. 

— Start of COMMON is highest core address, (XFFF), 
minus the Length of COMMON. 

IN -CORE SUBROUTINES (subroutines that are in 
core all the time) 

— Located immediately following user's mainline 
program. 
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— Those subroutines listed in core map that are 
not SOCALS or LOCALS are In-Core subroutines. 

— The load address of these subroutines is listed 
with subroutine name. 



LDD 
BSI 



LIST 

ENTRY POINT 



LOCAL/SOCAL FLIPPER (FLIPR) 

— Load address given in core map under the head- 
ing SYSTEM SUBROUTINES. 

LOCAL AREA (The "Load-on-Call" overlay area) 

— Size depends upon largest LOCAL subroutine 
used. 

— Beginning core address is FLIPR + /0066. 

— Ending core address is address of SOCAL Area 
minus 1. 

SOCAL AREA (System overlay area) 

— Located immediately following LOCAL Area . 
-*- Beginning core address is found at FLIPR 

+ /004D. 

— The first word in SOCAL Area contains the 
word count of SOCAL Area. 

— Ending core address is the beginning address 
+ the word count of the SOCAL Area. 



GENERALIZED SUBROUTINE MAINTENANCE/ 
ANALYSIS PROCEDURE 



LIST 



Flowdiagram 4 provides the procedure to be used for 
detailed analysis of an I/O subroutine. The proce- 
dure is applicable to FORTRAN device, general ISS, 
and system device subroutines. 



TRACE BACK PROCEDURES 



DC 
DC 



PARAMETER 
PARAMETER 



To place the subroutine into a loop: 



1. Obtain link word from the system device 
subroutine. 

2. The contents of this link word point to the loca- 
tion following the long BSI instruction. 

3. Insert into the location following the long BSI 
instruction an MDX instruction back to the LDD 
instruction. 



LIBRARY SUBROUTINES (except 'Z« subroutines 
and PLOTX) 

The linkage to the System Library device subroutines 
(ISSs) are of the following form: 



LIBF 



CALL 



BSI 3 TVDISP BSI 

DC CONTROL DC 

DC ARG 1 DC 



CALLTV 
CONTROL 
ARG 1 



Flowdiagram 5 provides the procedure to be used to 
trace back from a failing subroutine to the preceding 
portion of the core load, which called the subroutine. 
This procedure can be used to trace all the way back 
to the mainline program. 

SUBROUTINE LOOPING CAPABILITIES 

SYSTEM DEVICE SUBROUTINES 

The linkages to system device subroutines are of 
the form: 



DC 



ARGN 



DC 



ARGN 



To place the subroutine into a loop: 



1. Insert in the location following the last argument 
an MDX instruction back to the BSI instruction. 

2. Some of the arguments may have to be changed 
to point to the BSI instruction because they are 
error exits or busy addresses. 

3. Refer to subroutine data charts for unic[ue 
operating characteristics. 
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cedures have 
been done 




Test, Seek 
Skip, Feed, 
Space, etc 





Yes 



Examine Ar- 
guments in 
Calling Se- 
quence of 
Caller 



Trace Back 
Procedures 



Q> 




No 




Inva 


nd 






Function 


V No 


4 



o 



Device 
Failure, 
Run 
Diagnostics 




Yes 



Possible Device 
Failure, Run 
Diagnostics or 
Loop Call 



Check Logic 
of Subroutine 
for Incorrect 
Flow 



Loop Sub- 
routine 



Looping 
Capabilities 



Go to 
That Sub- 
routine 



© 



Loop Sub- 
routine 



Looping 
Capabilities 





Yes 



Determine 
Preceding 
Function 



Flowdiagram 4 . Generalized Subroutine Maintenance/ Analysis Procedure 
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Step 

o 
© 




© 






Procedure 

Start with 
some failing 
Subroutine 



Get the core map printed during program 
loading 




Yes 



Get the symbolic entry point from the 
Subroutine Data Charts 



Find the symbolic entry name in the core 
map 




No 



Yes 



Add 2 to the Core Load Address obtained 
in step 5 



This procedure assumes the user has already 
analyzed the subroutineper Subroutine 
Analysis Procedures and has blocked out 
a core dump per Core Location Procedures. 



A core map is obtained by punching an 
"L" in column 14 of the XEQ card if the 
program being loaded is in disk system 
format . 



Determine which function was being used 



( Step 19 J 



"This is the Core Load Address of that 
entry point. 



The subroutine type is obtained from the 
Subroutine Data Charts 



The contents of the address 
derived in step 5 is the Link 
Word back to the calling 
statement in the calling 
program 



" The Core Load 
Address contains 
the Link Word 
back to the 
callttr. 



f Step 1 1 J 



"This gives the address of the word that 
points to the transfer vector. 




© 



Get the contents of the word located at 
the address computed in step 8 



Get the first word of the transfer vector 
entry 



"This gives the address of the transfer 
vector. 



"This is the Link Word back to the calling 
statement in the calling subroutine. 



f Step 1 1 J 



Flowdiagram 5. Trace Back Procedures 
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Step 



Procedure 



© 



© 



© 







© 



© 



© 



Continue now ^ 
having the ad- 
dress of calling 
statement J 




Now determine the name of the failing 
subroutine. 



No 



Yes 



Match the address of the calling pro- 
gram to the addresses in the core map 



f Step 17 J 



Locate the SOCAL linkage words in the 
core dump 



The word group containing "FOFD" is 
the overlay In core 



Mark the core map to identify all sub- 
routines in the incore overlay 



Determine which overlay is in core. 



Use the Core Dump Analysis Procedures 
to locate SOCAL linkage words, 3 for 
each overlay 



-SOCAL LINKAGE- 

Overlay 3 
Overlay 2 
Overlay 1 

-The overlay in core contains 7QFD in 

third word 
-Overlays not In core contain 

70F4 (SOCAL level 2) or 

70F7 (SOCAL level 1) in third word 
"Make a table of subroutines by overlay 
assignment 



xxxx 


xxxx 


70FX 


xxxx 


xxxx 


70FX 


xxxx 


xxxx 


70FX 



Match the address of the ca 1 1 i ng program 
obtained In step 7 (CALL) or step 10 
(LIBF) to the addresses marked instep 15 



The address closest to and less than the 
calling program's address identifies 
the name in core map 



You now have name of calling subroutine. 



Analyze this subroutine using Subroutine 
Analysis Procedures 



C Step 1 J 
Flowdiagram 5. Trace Back Procedures (Continued) 
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Step 









Procedure 



Get the symbolic location of function 
code from the Subroutine Data Charts 



Find the symbolic location in the 
subroutine listing 



Get the relative address of the location 
of function code 



Get the load point address for this 
subroutine from core map 



" The different entry points are related to 
the various "functions" performed by the 
subroutine. 



■Microfiche reference to subroutine list- 
mg is given in Appendix D. 



"The address at the symbolic location 
determined in step 20 is the relative 
address . 



Calculate core location of function 
code 



Get the function code from core dump 
and decode with Subroutine Data Chart 



Get the symbolic name for each function 
entry point from the Subroutine Data 
Chart 



' The relative address determined in step 
21 plus the load point address determined 
in step 22 gives the location of the 
function code. 



f Step 5 J 



Flowdiagram 5. Trace Back Procedures (Concluded) 
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SUBROUTINE DATA CHARTS 



SYSTEM DEVICE SUBROUTINE FOR KEYBOARD/CONSOLE PRINTER 

Phase ID: @ KBCP 

Used by: Monitor system programs 

Subroutines required: ILS04 

Linkage: LDD LIST 

BSI L KB000+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


Read, Convert, 
Print 


/7002 


Address of I/O 
Area 


Word Count 



Postoperative conditions and entry points: 



Function at KB 080 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read, Convert, 
Print 


/7002 


KB000+1 


KB000+1 


KB020+1 


KB020+1 





Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 







Significant variables: 



Symbolic location 


Contents /Use 


KB080 


The function is placed here. It becomes an MDX *+2 when executed. 


KB160 


Original word count. 


KB170 


Original I/O area address . 


KB270 


Character buffer area, containing a 12-bit character read from the Keyboard, the 
rotate/tilt code character printed, or a control character. 


KB280 


Data area pointer, pointing to the next word in the data area into which the EBCDIC 
character will be pi aced. 


KB290 


Remaining word count. 


KB 370 and KB 370+1 


Read/Print Control IOCC. 
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SYSTEM DEVICE SUBROUTINE FOR 1442/1442 

Phase ID: @ 1442 

Used by: Monitor system programs 
Subroutines required: ILS04 
Linkage: LDD LIST 

BSI L CD 000+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area Address 


Read 


/7000 


Address of the I/O 


No word count is used but an 






Area 


80 position area must be 
specified. 


Punch 


/7001 


Address of the I/O 


No word count is used but an 






Area 


80 position area must be 
specified. 


Read 


/7002 


Address of the I/O 


No word count is used but an 






Area 


80 position area must be 
specified. 


Feed 


/7003 


Not used 


Not used 



Postoperative conditions and entry points: 



Function a+ nrinon 


Symbolic 


Return 


Interrupt 


Return 


interrupt 






entry point 


address at 


entry point 


address at 


level 


Read 


/7000 


CD000+1 


CD000+1 


CD016+1 
CD010+1 


CD016+1 
CD010+1 




4 


Punch 


/7001 


CDOOO+1 


CD000+1 


CD016+1 
CD010+1 


CD016+1 
CDOlO+1 




4 


Read 


/7002 


CD000+1 


CD000+1 


CD016+1 
CD010+1 


CD016+1 
CD010+1 




4 


Feed 

i— . 


/7003 


CD000+1 


CD000+1 


CD010+1 


CD010+1 


4 
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Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 












CD120 


Used 


X 


X 










Interrupt 
level 


Saved at/restored from 
symbolic location 


CD190 


CD190+1 








CD018 


Used 


X 












Interrupt 
level 4 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 



Significant variables: 



Symbolic location 


Contents /Use 


CD210 


First column indicator. 


CD250 


Current column address. 


CD260 


Second half of the last IOCC performed, read or punch. 


CD230 


Second half of the last IOCC performed, start read or punch. 


CD188 


Skip indicator; non-zero = take one feed cycle. 


$LAST 


Last card indicator; non-zero = last card. 


$CTSW 


Control card switch; non-zero = control card read. 


$IBSY 


Busy indicator for 1442; non-zero = busy. 
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SYSTEM DEVICE SUBROUTINE FOR 2501/1442 

Phase ID: @ 2501 

Used by: Monitor system programs 
Subroutines required: ILS04 
Linkage: LDD LIST 

BSI L RP000+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 




Function 


ACC 


EXT 


I/O Area Address 


Read 


/7000 


Address of I/O Area 


Word count 


Punch 


/7001 


Address of I/O Area 


Not used 


Read 


/7002 


Address of I/O Area 


Word count 


Feed 


/7003 


Not Used 


Not used 



Postoperative conditions and entry points: 



Function a+ rtjsro 


Symbolic 


Return 


Interrupt 


Return 


Interrupt 






entry point 


address at 


entry point 


address at 


level 


Read 


/7000 


RP000+1 


RP000+1 


RP020+1 


RP020+1 


4 


Punch 


/7001 


RP000+1 


RP000+1 


RP040+1 
RP020+1 


RP040+1 
RP020+1 




4 


Read 


/7002 


RP000+1 


RP000+1 


RP020+1 


RP020+1 


4 


Feed 


/7003 


RP000+1 


RP000+1 


RP020+1 


RP020+1 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 












RP440 


Used 


X 


X 










Interrupt 
level 


Saved at/restored from 
symbolic location 


RP480 


RP480+1 








RP060 


Used 


X 












Interrupt 
level 4 


Saved at/restored from 
symbolic location 














Used 


X 


X 




X 
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Significant variables : 



Symbolic location 


Contents /Use 


RP500 


Current column address. 


RP520 


I/O address for restart information. 


RP600 


Word count for 2501 Reader. 


RP200 


Device last used: 




/1702 = 1442 




/4F01 = 2501 


$LAST 


Last card indicator; non-zero = last card. 


$CTSW 


Control card switch; non-zero = control card read. 


$IBSY 


Busy indicator; non-zero = busy. 
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SYSTEM DEVICE SUBROUTINE FOR CONSOLE PRINTER 

Phase ID: @ CPTR 
Used by: Monitor system programs 
Subroutines required: ILS04 
Linkage: LDD LIST 

BSI L CP000+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


Restore 

Write 

Skip 


/7000 
/7001 
/7002 


Address of page 
heading buffer 
(@HONG) 

Address of I/O 

Area 


Word Count 



Postoperative conditions and entry points: 



Function at CP120 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
kivel 


All 




CP000+1 


CP000+1 


CP020+1 


CP020+1 





Register status: 







ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 








CP170+2 






Used 


X 


X 




X 


x | 
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Significant variables: 



Symbolic location 


Contents /Use 


CP120 


The function is placed here. This word is executed to decode the function. 




/7000 is a MDX * 




/7001 is a MDX * + 1 




/7002 is a MDX * + 2 


CP200 


Carriage return counter, used for counting carriage returns for restore. 


CP350 


IOCC for printing on console. 


CP350+1 


CP350 contains address of CP450. 


CP370 


Actual word count of message not including trailing blanks. 


CP380 


Data area pointer, pointing to the word containing the 2 EBCDIC characters, 




one of which is being printed. 


CP450 


Print character buffer word. The IOCC points to this word, which contains 




the character or control character just printed. 
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SYSTEM DEVICE SUBROUTINE FOR 1132 

Phase ID: @1132 

Used by: Monitor system programs 

Subroutines required: ILS01 

Linkage: LDD LIST 

BSI L PN000 f 1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


Print 

Skip to Channel 1 

Space Immediate 


/7001 
/7000 
/7002 


I/O Area address 
I/O Area address 
Not used 


< word count 
< 80 

I/O Area is 
referenced 

Not used 



Postoperative conditions and entry points: 



Function at PN380 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Print 


/7001 


PN000+1 


PN000+1 


PN010+1 


PN010+1 


1 


Skip 


/7000 


PN000+1 


PN000+1 


PN010+1 


PN010+1 


1 


Space 


/7002 


PN000+1 


PN000+1 


PN010+1 


PN010+1 


1 



Register Status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 






PN400+1 


PN400+3 


PN400+5 




Used 


X 


X 


X 


X 


X 


X 


Interrupt 
level 1 


Saved at/restored from 
symbolic location 


PN200 


PN200+1 


PN440+1 


PN440+3 


PN440+5 


PN450 


Used 


X 


X 


X 


X 


X 


X 
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Significant variables: 



Symbolic location 


Contents /Use 


PN040 


Last emitter character read as a result of a read emitter response interrupt. 


PN050 


Second word of Sense-DSW-with- reset IOCC. 


PN060 


Last DSW sensed in interrupt. 


PN070 


Second word of Sense-DSW-with-no-reset IOCC. 


PN080 


First word of Read emitter IOCC, contains the address of location PN040. 


PN090 


Second word of Read emitter IOCC. 


PN100 


First word of Start Printer IOCC, also the idle scan counter. 


PN110 


Second word of Start Printer IOCC. 


PN120 


Print scan counter. 


PN130 


Second half of Stop Printer IOCC. 


PN150 


Second half of Start Carriage IOCC. 


PN170 


Second half of Stop Carriage IOCC. 


PN180 


First half of Stop Carriage IOCC and mask to check bits 3, 5, and 6 of Printer DSW. 


PN370+1 


Address of the I/O area. 


PN460+1 


Word count. 


PN470+1 


Address of message. 


$PBSY 


/0001 indicates I/O buffer is busy and 49 print scan cycles have not been 




completed. 




/0000 indicates routine may still be busy completing the 16 idle scans; however, 




I/O buffer is ready to accept new input. 


$CH12 


Zero = Channel 12 has not been sensed. 




Non-Zero = Channel 12 has been sensed and skip to channel 1 has not been 




performed. 
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SYSTEM DEVICE SUBROUTINE FOR 1403 

Phase ID: @1403 

Used by: Monitor system programs 

Subroutines required: ILS04 

Linkage: LDD LIST 

BSI L PR000+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


Print 1 Line 

Skip 

Space Immediate 


/7001 
/7000 
/7002 


Address of 
I/O Area 

Address of 
I/O Area 

Not used 


< word count £ 60 

I/O Area is 
referenced 

Not used 



Postoperative conditions and entry points: 



Function at PR150 


I/O Area 
word count 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Print 


/7001 


Non-Zero 


PR000+1 


PR000 


PR010 


Skip 


/7000 


Not used 


PR000+1 


PR000+1 


PRO 10 


Space 


/7002 


Not Used 


PR000+1 


PR000+1 


PR010 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 






PR230+1 


PR240+1 


PR250+1 




Used 


X 


X 


X 


X 


X 


X 
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Significant variables : 



Symbolic location 



Contents /Use 



PR140 



PRO 80 
PRO 80+1 

PR110 

PR300 
PR300+1 

PR090 
PR090+1 

PR290+1 

PR060 

PR070 

PR110 

PR390 

$PGCT 

$CH12 

$PBSY 



A NOP after the following areas have been adjusted to the correct address as a 
result of relocation: 

PR300 

PR500+1 

PR180+2 

PR280+2 

PR170+1 

PR220+2 

PRO 80 

PR400+1 

PR430+1 

First word of Print IOCC, contains address of print buffer. 
Second half of Print IOCC. 

Second half of Sense-without- reset IOCC. 

First word of Ski p-to- channel- 12 IOCC. 
Second word of Skip-to-channel- 12 IOCC. 

First word of Space immediate IOCC. 
Second word of Space immediate IOCC. 

Address of the user's I/O area. 

Storage location for the last DSW sensed during interrupt; also, first word of 
Sense-DSW-with-reset IOCC. 

Second word of Sense-DSW-with-reset IOCC. 

Second word of Sense-DSW-without- reset IOCC. 

60-word buffer from which the line is printed. 

Binary page count, where < page count < 32767 

Channel 12 switch indicating channel 12 detected in DSW during interrupt; 
not reset until a skip to channel 1 is requested by the user. 

Printer busy switch, modified during execution of routine. 

($PBSY) = Zero: routine and printer not busy. 

= Positive: transmission to printer is in progress; transmission 

complete has not been received; subroutine I/O buffer is busy. 
= Negative: transmission complete has been received; subroutine 

I/O buffer can now be set up with new message. 
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SYSTEM DEVICE SUBROUTINE FOR 1134/1055 

Phase ID: @ 1134 

Used by: Monitor system programs 

Subroutine required: none 

Linkage: LDD LIST 

BSI L PT000+1 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


Read without 
conversion 

Punch 

Read with con- 
version 


/7000 

/7001 
/7002 


Address of I/O Area 

Address of I/O Area 
Address of I/O Area 


Word Count 

Word Count 
Word Count 



Postoperative conditions and entry points: 



Function at 


PT060 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Interrupt 
level 


Read with con- 


/7000 


PT000+1 


PT000+1 


PT010+1 


4 


version 












Punch 


/7001 


PT000+1 


PT000+1 


PT010+1 


4 


Read without 


/7002 


PT000+1 


PT000+1 


PT010+1 


4 


conversion 













Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 






X 
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Significant variables: 



Symbolic location 


Contents /Use 


PT000+1 


Return address to caller from main line. 


PT010+1 


Return address from interrupt. 


PT060 


Function code, executed as follows: 




/7000 = MDX * 




/7001 = MDX *+l 




/7002 = MDC *+2 


PT340 


Data area pointer. 


PT360 


Remaining word count. 


PT370 


Switch used for reading or punching: /0001 = punch, /0002 = read. 


PT380 


Switch used to indicate if conversion of information read is needed: 




zero = no conversion, 




non-zero = conversion. 


PT460 and PT460+1 


IOCC for read and punch. 


PT480 


Data buffer. The character to be read or punched is contained here. 


PT500 


Counter for counting first 3 characters. 
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SYSTEM DEVICE SUBROUTINE FOR DISK « DISKZ 

Phase ID: @DZID 

Used by: Monitor system programs 

Assembler Language programs 

FORTRAN programs 
Subroutines required: ILS02 
Linkage: LDD LIST 

BSI L DZ000 



LIST DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


ACC 


EXT 


I/O Area 
Address 


I/O Area 
Address + 1 


Read 


/7000 or 


Address of the 


1 word count 


Drive code and 




/OOOO 


I/O Area (must 
be even) 


< length of defined 
data area 


sector address 


Write 


/7001 


Address of the 


^ word count 


Drive code and 






I/O Area (must 


< length of area 


sector address 






be even) 


to be written 
on disk 




Find 


/0000 


Address of the 
I/O Area (must 
be even) 


/0000 


Drive code and 
sector address 



Postoperative conditions and entry points: 



Function at DZ945 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 


/0000 


DZ000 


DZ100+5 


DZ010 


DZ010 


2 


Write 


/0100 


DZ000 


DZ100+5 


DZ010 


DZ010 


2 


Find 


/0000 


DZ000 


DZ100+5 


DZ010 


DZ010 


2 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 






DZ100+1 


DZ100+3 






Used 


X 


X 


X 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


DZ350+1 


Address of the word in COMMA containing the current position of the heads on the 
referenced disk. 


DZ 235+1 


Address of the first word of the I/O Area. 

C[C(DZ 235+1)] = originally requested word count 
C[C(DZ 235+1) + ] = originally requested sector address 


DZ904 and 
DZ905 


First and second words of the last IOCC performed (excluding sense DSW). 


DZ908 and 
DZ909 


First and second words of forced-Read after-Seek IOCC. 


DZ901 


Sector address of previously executed forced Read. 


DZ906 and 
DZ907 


IOCC developed for user-requested function. 


DZ975 


Second word of Read-Back-Check IOCC. 


DZ912 


Word count remaining to be read or written from original. 


DZ913 


Next sector to be read or written. 


DZ910 


Second word of Seek IOCC. 
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CARDZ 

Flowcharts: FIO04-05 

Used by: SFIO 

Subroutine required: HOLEZ, ILS01, ILS04 

Linkage: LIBF CARDZ (BSI 3 TV DISP) 

where ACC = FUNCTION CODE 

XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Peroperative input parameters: 



Function 


ACC 


XR1 


XR2 


Read 
Write 


/OOOO 
/0002 


I/O Area Address 
I/O Area Address 


Word Count 
Word Count 



Postoperative conditions and entry points: 



Function at CZ912 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 

Write 


/0000 
/0002 


CARDZ 
CARDZ 


LIBF TV link 
word 

LIBF TV link 
word 


CZIOO 
(column) 

CZllO 
(op complete) 


CZIOO 
(column) 

CZllO 
(op complete) 


1 

4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at /re stored from 
symbolic location 














Used 


X 


X 


X 


X 




X 
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Significant variables: 



Symbolic location 


—• '•• '—■ • ■ " " ■ 

Contents /Use 


CZ904 


Start read or punch IOCC, set by program depending on function used to 


CZ904+1 


initiate operation. 




If read, CZ904 + 1 = CZ906 + 1 




If write, CZ904 + 1 = CZ908 + 1 


CZ902 


Read or Punch IOCC, set by program depending on function to read or punch 




columns. 




If read, CZ902 + 1 = CZ906 




If write, CZ902 + 1 = CZ908 


CZ923 


Address pointer to I/O area, incremented on each column interrupt. 


CZ925 


Original I/O area address -1. 


CZ920 


DSW is saved here on an operation- complete interrupt. 


CZ010 


Switch used for waiting for interrupt: 




Set positive when waiting for any interrupt. 




Set zero when column interrupt occurs. 




Set negative when op-complete interrupt occurs. 


$RWCZ 


Previous operation switch: 




/0000 = previous operation was a read. 




/0002 = previous operation was a write. 




If a write function is to be performed and the previous operation was a write, 




this switch causes CARDZ to read a card and test for // in columns 1-2. 


CZ918 


Switch used to test for // card before writing on it; zero means only reading 




or previous operation before write was a read. 


CZ918-3 


Buffer area for saving first 3 columns; rest of card is read into fourth word 


thru 


when reading before write. 


CZ918 
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PNCHZ 

Flowchart: FIOll 

Used by: SFIO 

Subroutines required: HOLEZ, ILS01, ILS04 

Linkage: LIBF PNCHZ (BSI 3 TV DISP) 

where ACC = FUNCTION CODE 

XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters 






Function 


ACC 


XR1 


XR2 


Write 


/0002 


I/O Area Address 


Word (character) count 
of 80 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Write 




PNCHZ 


LIBF TV link 
word 


PZ060 
(column) 

PZ080 

(op complete) 


PZ060 
PZ080 




4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 
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Significant variables: 




Symbolic location 


Contents /Use 


PZ340 


Address pointer to I/O area; First word of Punch IOCC, Incremented on 




each column interrupt. 


PZ340+1 


Second word of Punch IOCC. 


PZ360 and 


Feed IOCC for initiating punch operation. 


PZ360+1 




PZ400 


Error display indicator. 


PZ400+1 


Second word of last card feed IOCC. 


PZ120+1 


Original I/O area address. 


PZ040 


Switch used for waiting for operation — complete interrupt: 




zero = op complete interrupt has occurred 




non-zero = waiting for op- complete 
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READZ 

Flowchart: FIO08 

Used by: SFIO 

Subroutines required: HOLEZ, ILS04 

Linkages: LIBF READZ (BSI 3 TV DISP) 

where XR1 - I/O AREA ADDRESS 



Preoperative input parameters: 



Function 


XR1 


Read 


I/O Area Address 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 




READZ 


LIBF TV 
link word 


RZ060 


RZ060 


4 



Register status: 







ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 



Significant variables: 



Symbolic location 


Contents /Use 


RZ360 

RZ360+1 

RZ380 


I/O Area Address; also, first word of Read IOCC. 

Second word of Read IOCC. 

Switch used for interrupt processing: 
non-zero = waiting for interrupt 
zero = set by occurrence of interrupt 
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TYPEZ 

Flowchart: FI012 

Used by: SFIO 

Subroutines required: HOLEZ, GETAD, ILS04 

Linkage: LIBF TYPEZ (BSI 3 TV DISP) 

where ACC = FUNCTION CODE 

XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters: 



Function 


ACC 


XR1 


XR2 


Read 
Write 


/OOOO 
/0002 


I/O Area Address 
I/O Area Address 


Word count, set to 80 by 
TYPEZ 

Character count 



Postoperative conditions and entry points: 



Function at KZ910 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 
Write 


/0000 
/0002 


TYPEZ 
TYPEZ 


via LIBF TV 
link word 
via LIBF TV 
link word 


KZ100 
KZ100 


KZ100 
KZ100 


4 
4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 







Significant variables: 



Symbolic location 


Contents /Use 


KZ911 
KZ210+1 
KZ910 
KZ906 

KZ914 
KZ913 
KZ900 
KZ902 
KZ912 


Original character count plus one. 
Original I/O area address. 
Read-Write function indicator word. 
IOCC used to print characters from KZ914. 

Buffer word used to hold character to be printed. 

Saved DSW from Sense- with-reset in interrupt routine. 

IOCC used to read Keyboard character into I/O area. 

IOCC used to release Keyboard. 

Number of remaining characters to be typed. (Each character read is typed. ) 
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WRTYZ 

Flowchart: FIO09 

Used by: SFIO 

Subroutines required: GETAB, EBCTR, ILS04 

Linkage: LIBF WRTYZ (BSI 3 TV DISP) 

where XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters: 




Function 


XR1 


XR2 


Write 


I/O Area Address 


Character Count 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Write 




WRTYZ 


WRTYZ+2 


TZ100 


TZ100 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 







Significant variables: 



Symbolic location 


Contents /Use 


TZ907 
TZ908 
TZ902 


Number of characters remaining to be printed. 
Output buffer for printing character. 
IOCC used to print character out of TZ908. 
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PRNZ 

Flowchart: FIO10 

Used by: SFIO 

Subroutines required: ILS04 

Linkage: LIBF PRNZ (BSI 3 TV DISP) 

where XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters: 



Function 


XR1 


XR2 


Print 


I/O Area Address 


Word count, including 1 for 
carriage control character 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Print 




PRNZ 


PRNZ+2 


WZ100 


WZ100 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 



Significant variables: 



Symbolic location 


Contents/Use 


WZ904 
WZ906 
WZ908 
WZ990 
WZ934 
WZ933 


First word of Print IOCC, Address of output area. 
Address for store after character conversion. 
Counter for character conversion. 
EBCDIC-to-1403-Printer-code conversion table. 
Transfer complete switch: zero = transfer complete. 
EBCDIC character being converted. 
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PRNTZ 

Flowchart: FIO06 

Used by: SFIO 

Subroutines required: ILS02 

Linkage: LIBF PRNTZ (BSI 3 TV DISP) 

where XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative input parameters: 




Function 


XR1 


XR2 


Print 


Output buffer address (first char- 
acter is carriage control) 


Word count, including carriage 
control character. 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Print 




PRNTZ 


PRNTZ+2 


AZ100 


AZ100 


2 



Register status: 







ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 




X 


Interrupt 
level 2 


Saved at/restored from 
symbolic location 














Used 
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Significant variables: 



Symbolic location 


Contents /Use 


AZ150+1 


Address of first data word in output buffer. 


AZ919 


Word count. 


AZ900 


Interrupt exit switch: 




+ , if line is complete 




- , if idles complete 




, if waiting 


AZ922 


Space counter (positive number of spaces). 


AZ914 


DSW storage. 


AZ924 


Scan counter (print). 


AZ918 


Emitter- character storage. 
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PAPTZ 

Flowchart: FIO07 

Used by: SFIO 

Subroutine required: ILS04 

Linkage: LIBF PAPTZ (BSI 3 TV DISP) 

where ACC = FUNCTION CODE 

XR1 = I/O AREA ADDRESS 
XR2 = WORD COUNT 



Preoperative inj 


Dut parameters: 




Function 


ACC 


XR1 


XR2 


Read 
Write 


/OOOO 
/0002 


Address of I/O Area 
Address of I/O Area 


Word count, set to 120 
by PAPTZ 

Word count 



Postoperative conditions and entry points: 



Function at BZ924 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Read 
Write 


/0000 
/0002 


PAPTZ 
PAPTZ 


PAPTZ+2 
PAPTZ+2 


BZ100 
BZ100 


BZ100 
BZ100 


4 
4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 














Used 


X 


X 


X 


X 
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Significant variables: 



Symbolic location 


Contents /Use 


BZ924 
BZ929 
BZ300+1 
BZ010 

BZ902 
BZ904 
BZ925 

BZ926 
BZ906 


Read/Write indicator. 

Number of words remaining to be read or punched. 

Address of I/O Area. 

Routine busy indicator: zero, no interrupt waiting to be processed; non- 
zero, an interrupt waiting to be processed. 

IOCC used to Start paper tape reader. 

IOCC used to Read paper tape. 

Read area for BZ904, Read paper tape IOCC. 
Write area for BZ906, Punch paper tape IOCC. 

DSW from sense-with-reset in interrupt subroutine. 

IOCC used to Punch paper tape. 

__— 
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CARDO 

Used by: Assembler Language programs 

Subroutines required: ILSOO, ILS04 

Linkage: LIBF CARDO (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 


Return to this word if 
busy 


Return to this word if not 
busy 


Not vised 


Read 


/1000 


I/O Area Address 


NSI 


Word count 


Punch 


/2000 


I/O Area Address 


NSI 


Word count 


Feed 


/3000 


Not used 


NSI 


Not used 


Stack 


/4000 


Not used 


NSI 


Not used 



Postoperative conditions and entry points: 



Function 


at CA20 


Symbolic 


Return 


Interrupt 


Return 


■ ■ " 

toterrupt 






entry point 


address at 


entry point 


address at 


level 


Test 




CARDO 


CA34+1 








Read 


/7000 


CARDO 


C A 34+1 


INTl 
INT2 


INTl 
INT2 




4 


Punch 


/7001 


CARDO 


CA34+1 


INTl 
INT2 


INTl 
INT 2 




4 


Feed 


/7002 


CARDO 


CA34+1 


INT2 


INT2 


4 


Stack 


/7003 


CARDO 


C A 34+1 









Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


TEMP 




CA30+1 


CA31+1 




CA32 


Used 


X 




X 


X 







152 



Significant variables: 



Symbolic location 


Contents /Use 


COUNT 


Number of words left to be transferred. 




COLM 


Address being transferred to or from. 




RSTRT 


Word count for restart. 




RSTRT+1 


Starting address for restart. 




BUSY 


Busy indicator; non-zero = busy. 




CHAR 


Second half of the Sense DSW IOCC that was 


last executed. 


ERROR 


Skip indicator; non-zero = feed a card. 
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CARD1 

Used by: Assembler Language programs 
Subroutines required: ILSOO, ILS04 
Linkage: LIBF CARD1 (BSI 3 TV DE3P) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 


Return to this word if 
busy 


Return to this word 
if not busy 


Not used 


Read 


/1000 


I/O Area Address 


Address of user 
error routine 


Word count 


Punch 


/2000 


I/O Area Address 


Address of user 
error routine 


Word count 


Feed 


/3000 


I/O Area Address 


Address of user 
error routine 


Not used 


Stack 


/4000 


Not used 


Not used 


Not used 



Postoperative conditions and enter points: 



Function 


at CR24+1 


Symbolic 


Return 


Interrupt 


— 

Return 


Interrupt 


entry point 


address at 


entry point 


address at 


level 


Test 




CARD1 


EXIT+1 








Read 


/0001 


CARD1 


EXIT+1 


INTl 
INT2 


INTl 
INT2 




4 


Punch 


/0002 


CARD1 


EXIT+1 


INTl 
INT2 


INTl 

INT2 



4 


Feed 


/0003 


CARD1 


EXIT+1 


INT2 


INT2 


4 


Stack 


/0004 


CARD1 


EXIT+1 
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Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


TEMP 




CR42+1 


CR44+1 




CR46 


Used 


X 










X 



Significant variables: 



Symbolic location 


Contents /Use 


RESTR 


Count information for restart. 




RESTR+1 


I/O area address for restart. 




RESTR+2 


Address of error routine; also, busy indicator. 




ERROR 


Skip indicator; non-zero = feed a card. 




INDIC 


Feed check at read station indicator; non-zero = 


= feed check. 


INIT 


Last initiate command given. 




COLM 


Address being transferred to or from. 




COUNT 


Number of words to transfer. 




CHAR 


Second half of the Sense DSW IOCC used. 
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READO 

Used by: Assembler Language programs 

Subroutines required: ILS04 

Linkage: LIBF READO (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


I/O Area 


Test 


/OOOO 


Return to this word if busy- 


Not used 


Read 


/1000 


Address of word count 


Word count 


Feed 


/1000 


Address of word count 


Word count 
(must be zero) 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 


READO 


RE 180+1 








Read 


READO 


RE 180+1 


RE048 


RE048 


4 


Feed 


READO 


RE 180+1 


RE048 


RE 048 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


RE 324 




RE 144+1 


RE 156+1 




RE 168 


Used 


X 




X 









Significant variables: 



Symbolic location 


Contents /Use 


RE228 
RE 264 


Busy indicator; non-zero indicates busy. 
I/O area address. 
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READ1 

Used by: Assembler Language programs 

Subroutines required: ILS04 

Linkage: LIBF READ1 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters 








Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 


Return to this word if busy 


Return to this word if not 
busy 


Not used 


Read 


/1000 


I/O Area Address 


Address of user's error 
routine 


Word count 


Feed 


/1000 


I/O Area Address 


Address of user's error 
routine 


Word count 
(must be zero) 



Preoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 


READ1 


RE 180+1 








Read 


READ1 


RE 180+1 


RE048 


RE 048 


4 


Feed 


READ1 


RE 180+1 


RE 048 


RE 048 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


RE 324 




RE 144+1 


RE156+1 




RE 16 8 


Used 


X 




X 









Significant variables: 



Symbolic location 


Contents /Use 


RE228 
RE264 
RE 360+2 
RE370+2 


Busy indicator; non-zero indicates busy. 

I/O Area address. 

Address of user's error routine for read error. 

Address of user's error routine during last card. 
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PNC HO 

Used by: Assembler Language programs 
Subroutines required: ILSOO, ILS04 
Linkage: LIBF PNCHO (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 

Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 


/0000 


Return to this word if busy 


Return to this word if not 
busy 


Not used 


Punch 


/2000 


Address of I/O Area 


Return to this word 
following call 


Word count 


Feed 


/3000 


Not used 


NSI 


Not used 



Postoperative conditions and entry points: 



Function at CA20 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 




PNCHO 


C A 34+1 








Punch 


/7001 


PNCHO 


C A 34+1 


INTl 
INT2 


INTl 
INT2 




4 


Feed 


/7002 


PNCHO 


C A 34+1 


INT2 


INT2 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


TEMP 




CA30+1 


CA31+1 




CA32 


Used 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


CHAR 


Second half of DSW last sensed. 


COLM 


Address being punched from. 


BUSY 


Non-zero indicates busy. 


COUNT 


Number of columns to be punched. 


ERROR 


Non-zero indicates feed a card (SKIP). 


RSTRT 


Word count for restart. 


RSTRT+1 


Data address for restart. 
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PNC HI 

Used by: Assembler Language programs 
Subroutines required: ILSOO, ILS04 
Linkage: LIBF PNCH1 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 


Return to this word if busy. 


Return to this word if not 
busy 


Not used 


Punch 


/2000 


Address of I/O Area 


Address of user's error 
routine 


Word count 


Feed 


/3000 


Not used 


Address of user's error 
routine 


Not used 



Postoperative conditions and 


entry points: 










Function at CA20 


Symbolic 


Return 


Interrupt 


Return 


Interrupt 




entry point 


address at 


entry point 


address at 


level 


Test 




PNCH1 


CA34+1 








Punch 


/7001 


PNCH1 


C A 34+1 


INTl 
INT2 


INTl 
INT2 




4 


Feed 


/7002 


PNCH1 


CA34+1 


INT2 


INT2 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic locations 


TEMP 




CA30+1 


CA31+1 




CA32 


Used 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


CHAR 


Second half of Sense DSW IOCC. 




COLM 


Address being punched from. 




BUSY 


Busy indicator; non-zero = busy. 




COUNT 


Number of columns to punch. 




ERROR 


Non-zero indicates feed a card (SKIP). 




INDIC 


Read station feed check if non-zero. 




RSTRT 


Word count for restart. 




RSTRT+1 


Data address for restart. 




RSTRT+2 


Address of user's error routine. 
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TYPEO 



Used by: Assembler Language programs 

Subroutine required: ILS04 

Linkage: LIBF TYPEO (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 



Preoperative input parameters: 






Function 


ARG1 


ARG2 


I/O Area Address 


Test 


/OOOO 


Return to this word if opera- 
tion is not complete 




Read- Print 


/1000 


I/O Area Address 


Word Count 


Print 


/2000 


I/O Area Address 


Word Count 



Postoperative conditions and entry points: 



Function 


at TY24 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 




TYPEO 


EXIT+1 








Read Print 


/7000 


TYPEO 


EXIT+1 


INT1 


INT1 


4 


Print 


/7001 


TYPEO 


EXIT+1 


INT1 


INT1 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic locations 


SAVAQ 


SAVAQ+1 


SAV1+1 


SAV2+1 




SAVST 


Used 


X 




x 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


TY24 


Functional branch instruction: 




/7000 = MDX * if Read/Print. 




/7001 = MDX *+l if Print. 


READ 


Pointer to data input area. 


READ+1 


Last half of Read IOCC. 


RSTRT+1 


Data area address. 


RSTRT+2 


Word count. 


COUNT 


Contents depend on the function: 




/7000 - number of words remaining to be read. 




/7001 - count of remaining characters to be printed, initially set to twice the 




word count. 


PRINT 


IOCC used to print character from TEMPI. 


INIT 


IOCC used to release keyboard. 


DSWRD 


Device status word from sensing device in interrupt routine. 


RIGHT 


Switch indicating which character in TEMPI will be used next: 




/0000 = Use right character 




/0001 = Go get next word from data area and use left character. 


TEMPI 


Contents depend on the function: 




/7000 - rotate/tilt character converted from hollerith input character from 




keyboard. Character is printed on console from this area. 




/7001 - Temporary storage for printing a character (high order 8 bits was last 




character printed). 


TY90+1 


Address of Hollerith table. 


TY92+1 


Address of Rotate/Tilt character table. 
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PRNT1 

Used by: Assembler Language programs 

Subroutines required: ILS01 

Linkage: LIBF PRNT1 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


Test 


/OOOO 


Returns to this word if 


Returns to this word if routine 






routine is busy 


is not busy 


Print 


/20X0 

X = space control 

, space after print 

1 , suppress space 


I/O Area Address 


Error routine address 


Control 


/3XY0 


Return to this word. 




Carriage 


X = immediate control 
Y = after print control 






Print 


/40X0 


I/O Area Address 


Error routine address 


Numeric 


X = space control 

, space after print 

1 , suppress space 







Postoperative conditions and entry points: 



Function at 


PARI 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 




Interrupt 
level 


Test 




PRNT1 


EXIT+1 








Print 


/20X0 


PRNT1 


EXIT+1 


INT1 


INT1 


1 


Control Carriage 


/3XY0 


PRNT1 


EXIT+1 


INT1 


INT1 


1 


Print Numeric 


/40X0 


PRNT1 


EXIT+1 


INT1 


INT1 


1 
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Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


AQ 


AQ+1 


FC58+1 


FC58+3 




FC58+4 


Used 


X 


X 


X 


X 




X 


Interrupt 
level 1 


Saved at/restored from 
symbolic location 








OUT+1 






Used 


X 






X 







Significant variables: 



Symbolic location 


Contents /Use 


ILLGL+2 


Address of call +1. 


NEGWD 


2's complement of the word count. 


CLEAR 


Last entry to the clear print buffer routine. 


DSW 


DSW from the last interrupt. 


SPSK 


Space count if (-). Skip if (+). Compare for skip response interrupt. 


PASS 


Interrupt switch. 


FC16+1 


Address of call +2. 


STRE3+2 


Address of call +3. 


SCAN+1 


End of the I/O area. 


CTR48 


Scan counter to determine when line is complete. 


CTR16 


Counter for 16 idles. 
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PRNT3 

Used by: Assembler Language programs 

Subroutines required: ILS04 

Linkage: LIBF PRNT3 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative 


input parameters: 






Function 


ARG1 


ARG2 


ARG3 


Test 


/OOOO 


Return to this word if 


Return to this word if not 






busy 


busy 


Print 


/20Z0 

Z = space control 
1, space suppressed 
0, space after print 


Address of I/O Area 


Error parameter required 


Control 


/3XY0 

X = immediate control 
Y = control after print 







Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 




PRNT3 


W3160+1 








Print 


Third digit at 
W3540 


PRNT3 


W3160+1 


W3020 


W3020 


4 


Control 


Third digit at 
W3540 


PRNT3 


W3160+1 


W3020 


W3020 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


W3520 


W3520+1 


W3120+1 


W3100+1 




W3140 


Used 


X 


X 


X 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


W3540 

W3 840+1 
W3920 
W3900 
W3260+1 


First word of the Sense-DSW-without- reset IOCC; also, Carriage control 
character. 

Routine busy switch, non-zero indicates the routine is processing a message. 

First word of 60- word output buffer. 

DSW in interrupt, except carriage interrupt; also carriage control in interrupt. 

Address of user output area. 
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PAPT1 

Used by: Assembler Language programs 

Subroutines used: ILS04 

Linkage: LIBF PAPT1 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 








Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 


/OOOO 


Return to this word if 
the operation is not 
complete 


Return to this word if 
previous operation is 
complete 




Read 


/1X00 


I/O Area Address 


Address of user error 


Word count (1/2 the 




X=0, Check 




routine 


number of char- 




X=l, No check 






acters) 


Punch 


/2X00 


I/O Area Address 


Address of user error 


Word count (1/2 the 




X=0, Check 




routine 


number of char- 




X=l, No check 






acters) 



Postoperative conditions and entry points: 



Function 


at DEVIC 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 




PAPT1 


RET+1 








Read 


/0002 


PAPT1 


RET+1 


INT1 


INT1 


4 


Punch 


/0001 


PAPT1 


RET+1 


INT1 


INT1 


4 



Register status 


: 
















ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVA 




XR1+1 






XR1+2 


Used 


X 




X 






X 



Significant variables: 



Symbolic location 


Contents /Use 


DEVIC 


Function indicator: 




/0002 = Read. 




/0001 = Punch. 


CHECK 


Switch for controlling checking function: 




/0000 = Do not check. 




/FFOO = Check for a Delete or Stop character. 


WDCNT 


Count of remaining words. 


IOAR 


Data area pointer. 


USERR+2 


Address of user error routine. 


BUF 


Temporary storage for word containing 2 characters to be punched. 


SENSE 


Sense DSW for paper tape. 


READS 


IOCC for starting paper tape reader. 


IOCC 


Read or punch control word. 


FCRD 


Character switch: 




(Punch) Even = Both characters in the word have been punched, go get 




the next character. 




Odd = Punch the right character. 




(Read) Even = Second character of word was just read. 




Odd = First character of word was just read. 
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PAPTN 

Used by: Assembler Language programs 

Subroutine required: ILS04 

Linkage: LIBF PAPTN (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 








Function 


ARG1 


ARG2 


ARG3 


I/O Area 
Address 


Test 


/OOOO 


Return to this word if 


Return to this word if 






Test reader 


the previous operation 


previous operation is 






/0001 


is not complete 


complete 






Test punch 








Read 


/1X00 


I/O Area Address 


Address of user 


Word count 




X=0, Check 




error routine 


(1/2 the number 




X=l, No check 






of characters) 


Punch 


/2X00 


I/O Area Address 


Address of user 


Word count 




X=0, Check 




error routine 


(1/2 the number 




X=l, No check 






of characters) 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 


PAPTN 


RET+1 








Read 


PAPTN 


RET+1 


INTN 


INTN 


4 


Punch 


PAPTN 


RET+1 


INTN 


INTN 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVA 




XR1+1 


XR2+1 




XR2+2 


Used 


X 




X 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


CHECK 


/FFOO = Check for a Delete or Stop character. 




/0000 = Do not check. 


WDCNT 


Number of words remaining to be punched. 


RWDCT 


Number of words remaining to be read. 


IOAR 


Address pointer to user data area (punch). 


RIOAR 


Address pointer to user data area (read). 


USER1 


Address of user error routine (punch). 


RUSE1 


Address of user error routine (read). 


BUF 


Temporary storage for word to be punched. 


RBUF 


Temporary storage for word to be read into. 


Index Register 2 


Address of RDTBL, if reading. 




Address of PNTBL, if punching. 


IOCC 


IOCC used for punching a character. 


READS 


IOCC used to start tape reader. 


CHAR 


Switch used to indicate which half of the word is to be used: 


(RCHAR) 


Even = Both characters in word used. 




Odd = First character of word was used. 


SENSR 


DSW received from Sense-with-reset IOCC. 


RIOCC 


IOCC used to read paper tape. 


IOCC 2 


IOCC used to punch a Delete character. 
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PLOT1 

Used by: Assembler Language programs 

Subroutines used: ILS03 

Linkage: LIBF PLOT1 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative 


input parameters 








Function 


ARG1 


ARG2 


ARG3 


I/O Area Address 


Test 
Plot 


/OOOO 
/1000 


Return here if routine 
busy 

I/O Area Address 


Return here if routine 
not busy 

Address of user's 
error routine 


Not used 
Word count 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 
Plot 


PLOT1 
PLOT1 


RET+1 
RET+1 


INT1 


INT1 


3 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVAQ 


SAVAQ+1 


XR1+1 






XR1+2 


Used 


X 




X 
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Significant variables: 



Symbolic location 


Contents /Use 


DEVIC 


Non-zero indicates invalid device. 


BUSY 


Non-zero indicates busy. 


DIGIT 


Counter to determine which section of packed word is being used. 


SENSE 


Word count, number of words for this plot. 


IOAR 


Output area address in user program. 


BUF 


Word being decoded for plotting. 


FIRST 


Non-zero indicates first command. 


DUPCT 


Non-zero indicates repeat some command or plot. 


CTRL 


Last plot command executed. 


WORK 


Command that has been separated out of BUF. 
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OMPR1 

Used by: Assembler Language programs 

Subroutines required: ILS04 

Linkage: LIBF OMPR1 (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 

DC ARG3 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


ARG3 


EXT 


Test 


/OOOO 


Return to this word if 
program is busy 


Return to this word if 
program is not busy 






Timing 

Mark 

Test 


/0001 


Return to this word if 
bit 8 on in DSW 


Return to this word if bit 
8 is off in DSW 






Read 
Feed 


/1000 
/3000 


I/O Area Address 

NSI (return to this 
word after feed) 


Address of user error 
routine 

NSI 


/X— 
X = 1, 
X = 0, 

/x— 

X = 1, 
X = 0, 


Stacker Select 
No Stacker 
Select 

Stacker Select 
No Stacker 
Select 


Disconnect 


/4000 


NSI (return to this 
word after disconnect) 


NSI 






Stacker 
Select 


/5000 


NSI (return to this 
word after Stacker 
Select) 


NSI 







Postoperative conditions and entry points: 



Function at 


FUN 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 




OMPR1 


MPR36+1 








Timing Mark 




OMPR1 


MPR36+1 








Test 














Read 


/FFFE 


OMPR1 


MPR36+1 


INT1 


INT1 


4 


Feed 


/0000 


OMPR1 


MPR36+1 


INT1 


INT1 


4 


Disconnect 




OMPR1 


MPR36+1 








Stacker 




OMPR1 


MPR36+1 








Select 
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Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVAQ 


SAVAQ+1 


SAVX1 


MPR32+1 




MPR34 


Used 


X 


X 


X 






X 



Significant variables: 



Symbolic location 


Contents /Use 


Accumulator 


At entry to a user error routine: 

ACC = 0001, Master Mark detected. 

ACC = 0002, Read Error and/or Timing Mark Error. 

ACC = 0003, Hopper Empty. 

ACC = 0004, Document Selected. 




ERREX+2 


Entry to user's error routine. 




FUN 


Function: 

/FFFE = Read (2000) 
/0000 = Feed (3000) 




READ 


IOCC for Read function. 




READ+1 


Address of user I/O area. 




FEED 


/0000, Feed has already been performed. 

/0001, Feed has not been initiated for this Read function. 




CNTRL and 
CNTRL+1 


IOCC for Feed function. 




STKSL and 
STKSLrH 


IOCC for Stacker select. 




DSCNT and 
DSCNT+1 


IOCC for Disconnect function. 




BUSY 


Program busy indicator: 
zero = Not Busy, 
non-zero = Busy. 




FCI 


Zero, No first character interrupt. 

Non Zero, Have received first character interrupt. 




MMARK 


Master mark indicator switch: 
zero = No master mark, 
non-zero = Master mark read. 




Index Register 1 


Address of the calling sequence. 
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WRTYO 

Used by: Assembler Language programs 

Subroutines required: ILS04 

Linkage: LIBF WRTYO (BSI 3 TV DISP) 

DC ARG1 

DC ARG2 



Preoperative input parameters: 



Function 


ARG1 


ARG2 


I/O Area Address 


Test 
Print 


/OOOO 
/2000 


Return to this word if 
operation is not complete 

I/O Area Address 


Word Count 



Postoperative conditions and entry points: 



Function 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 
Print 


WRTYO 
WRTYO 


WR36+1 
WR36+1 


INT1 


INT1 


4 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


SAVA 




WR30+1 


WR32+1 




WR34 


Used 


X 




X 


X 




X 



Significant variables: 



Symbolic location 


Contents /Use 


COUNT 

IOAR 

TEMPI 

PRINT 

PRINT+1 

RIGHT 

TEMP 


Dynamic word counter; number of words remaining to be printed. 

Pointer to data area, address of last word used. 

Character to be printed, high order 8 bits was last character printed. 

First word of IOCC to print character out of TEMPI. 

Second word of IOCC to print character out of TEMPI. 

Switch indicating which character in TEMPI will be used next: 
/0000 = Right character. 
/0001 = Go get next word from date area and use left character. 

Right half of Sense- with-reset IOCC. 
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DISK1 

Used by: Monitor system programs, Assembler Language programs 

Subroutines required: ILS02 

Linkage:* for monitor system programs 





LDD 




LIST 




BSI 


L 


D0000 


LIST 


DC 




FUNCTION CODE 




DC 




I/O AREA ADDRESS 



for Assembler Language programs 

(BSI 3 TV DISP) 



LIBF 


DISK1 


DC 


ARG1 


DC 


ARG2 


DC 


ARG3 


DC 


ARG4 



*This subroutine may be entered by user-written Assembler Language programs via the LIBF TV or by 
monitor system programs via a direct branch. If a direct branch is used, DISK1 uses the parameters contained 
in the ACC and EXT to construct the parameters of a LIBF and simulates a LIBF entry by calling on itself. 



Preoperative input parameters (for 


LIBF entry) t : 








Function 


ARG1 


ARG2 


ARG3 


ARG4 


I/O Area Address 


Test 


/OOOO 


Not used 


Return to this 
word if busy 


Return to this 
word if not busy 


Not used 


Read 


/1000 


Address of the 


Address of user 


Return to this 


Word 1 = word 






I/O Area 


error routine 


word after 

initiating 

operation 


count 
Word 2 = drive code 
and sector 
address 


Write 


/2000 


Address of the 


Address of user 


Return to this 


Word 1 = word 


W/O 




I/O Area 


error routine 


word after 


count 


RBC 








initiating 
operation 


Word 2 = drive 
code and 
sector 
address 


Write 


/3000 


Address of the 


Address of user 


Return to this 


Word 1 = word count j 


With 




I/O Area 


error routine 


word after 


Word 2 = drive 


RBC 








initiating 
operation 


code and sector 
address 


Write 


/4000 


Address of the 


Address of user 


Return to this 


Word 1 = not used 


Immediate 




I/O Area 


error routine 


word after ini- 
tiating operation 


Word 2 = drive 
code and sector 
address 


Seek 


/500x 


Address of the 


Address of user 


Return to this 


Word 1 = not used 




x = seek option 


I/O Area 


error routine 


word after ini- 


Word 2 = drive 




displacement 






ting operation 


code and sector 
address 
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Postoperative conditions and entry points: 



Function at 


D1928 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 


/OOOO 


D1000 (branch) 
D1020+2 (LIBF) 


D1070 


D1020 


D1020 


2 


Read 


/0001 


D1000 (branch) 
D1020+2 (LIBF) 


D1070 


D1020 


D1020 


2 


Write W/O RBC 


/0002 


D1000 (branch) 
D1020+2 (LIBF) 


D1070 


D1020 


D1020 


2 


Write W/RBC 


/0003 


D1000 (branch) 
D1020+2 (LIBF) 


D1070 


D1020 


D1020 


2 


Write Immediate 


/0004 


D1000 (branch) 
D1020+2 (LIBF) 


D1070 


D1020 


D1020 


2 


Seek W/O Seek 


/0005 


D1000 (branch) 


D1070 


D1020 


D1020 


2 


Option 




D1020+2 (LIBF) 










Seek With Seek 


/0005 


D1000 (branch) 


D1070 


D1020 


D1020 


2 


Option 


(D1929^x000) 


D1020+2 (LIBF) 











Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


D1912+1 


D1912 


D1060+2 


D1060+4 




D1060 


Used 


X 


X 


X 


X 




X 
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Significant variables: 



Symbolic location 


Contents/Use 


D0006 


If DISK1 was entered by a monitor system program at D1000, this word is used by 




DISK1 to simulate a LIBF link word. The contents of this word should reference 




the simulated LIBF at symbolic location D0060. 


D1000 


Monitor system program entry. 


D1020+2 


LIBF TV entry. 


D1020+4 


LIBF TV link word. Contains the address of the first parameter in the calling 




sequence. 


D0235+1 


Address of the word containing the beginning of the file -protected area of the disk 


(D0310+1) 


on the specified drive. 


D0280+1 


Address of a table in COMMA containing the list of defective cylinders of the disk 




on the referenced drive. 


D0305+1 


Address of the device code to be used corresponding to the referenced drive. 


(D0330+1) 




D0350+1 


Address of the word in COMMA containing the current position of the heads on the 


(D0390+1) 


referenced disk. 


D0901 


Sector address of previously executed Forced Read. 


D1901 


Current arm position obtained by reading the sector address after seeking. 


D1902 and 


Last two words of sector previously read. The area is used to store an inter- 


D1903 


mediate word count and sector address. 


D1904 and 


IOCC for the operation currently being performed. 


D1905 




D1906 and 


IOCC for the user -requested function. 


D1907 




D1908 and 


IOCC to reader sector address into D1901 after a seek operation. 


D1909 




D1911 


Second word of Sense IOCC. 


D1912 and 


Used to save and restore the ACC and EXT. 


D1913 




D1925 


Word count remaining to be read or written from originally requested word count. 


D1926 


Next sequential sector to be read or written. 


D1929 


Non-zero if the seek option was requested. 


D1930 


Non-zero if the displacement option was requested. 


D1932 


Second word of Seek IOCC. 


D1938 


Current sector address. 


$DBSY 


Non-zero indicated routine is busy,* this word must be cleared to zero before entry 




to this routine is permitted. 
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DISKN 



Used by: Monitor system programs, Assembler Language programs 

Subroutines required: ILS02 

Linkage:* for monitor system programs 



LDD 
BSI 



LIST 
L D0000 



LIST 



DC 
DC 



FUNCTION CODE 
I/O AREA ADDRESS 



for Assembler Language programs 



LIBF 

DC 

DC 

DC 

DC 



DISKN 

ARG1 

ARG2 

ARG3 

ARG4 



(BSI 3 TV DISP) 



*This subroutine may be entered by user-written Assembler Language programs via the LIBF TV or by moni- 
tor system programs via a direct branch. If a direct branch is used, DISKN uses the parameters contained in 
the ACC and EXT to construct the parameters of a LIBF and simulates a LIBF entry by calling on itself. 



Preoperative input paramaters (for 


LIBF entry) t : 








Function 


ARG1 


ARG2 


ARG3 


ARG4 


I/O Area Address 


Test 


/OOOO 


Not used 


Return to this 
word if busy 


Return to this 
word if not busy 


Not used 


Read 


/1000 


Address of the 


Address of user 


Return to this 


Word 1 -■■ word 






I/O Area 


error routine 


word after ini- 
tiating operation 


count 
Word 2 =- drive 
code and sector 
address 


Write W/O 


/2000 


Address of the 


Address of user 


Return to this 


Word 1 == word 


RBC 




I/O Area 


error routine 


word after ini- 
tiating operation 


count 
Word 2 ~ drive 
code and sector 
address 


Write With 


/4000 


Address of the 


Address of user 


Return to this 


Word 1 -■ word 


RBC 




I/O Area 


error routine 


word after ini- 
tiating operation 


count 
Word 2 = drive 
code and sector 
address 


Write 


/1000 


Address of the 


Address of user 


Return to this 


Word 1 = not used 


Immediate 




I/O Area 


error routine 


word after ini- 
tiating operation 


Word 2 = drive 
code and sector 
address 


Seek 


/500x 


Address of the 


Address of user 


Return to this 


Word 1 = not used 




x = seek option 


I/O Area 


error routine 


word after ini- 


Word 2 = drive 




displacement 






tiating operation 


code and sector 
address 



t Applies to simulated LIBF. 
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Postoperative conditions and entry points: 



Function 


at DN984+XR1 


Symbolic 
entry point 


Return 
address at 


Interrupt 
entry point 


Return 
address at 


Interrupt 
level 


Test 


/OOOO 


DN000 (branch) 
DN020+2 (LIBF) 


DN120 


DN020 


DN020 


2 


Read 


/0001 


DN000 (branch) 
DN020+2 (LIBF) 


DN120 


DN020 


DN020 


2 


Write W/O 
RBC 


/0002 


DN000 (branch) 
DN020+2 (LIBF) 


DN120 


DN020 


DN020 


2 


Write With 
RBC 


/0003 


DN000 (branch) 
DN020+2 (LIBF) 


DN120 


DN020 


DN020 


2 


Write 
Immediate 


/0004 


DN000 (branch) 
DN020+2 (LIBF) 


DN120 


DN020 


DN020 


2 


Seek W/O 
Seek Option 


/0005 


DN000 (branch) 
DN020+2 (LIBF) 


DN120 


DN020 


DN020 


2 


Seek With 
Seek Option 


/0005 


DN000 (branch) 
DN020+2 (LIBF) 


DN120 


DN020 


DN020 


2 



Register status: 





ACC 


EXT 


XR1 


XR2 


XR3 


Status 


Mainline 


Saved at/restored from 
symbolic location 


DN902 


DN902+1 


DN110+1 


DN110+3 




DN100 


Used 


X 


X 


X 


X 




X 



Significant variables: 



Symbolic location 



Contents /Use 



DN230+1 If DISKN was entered by a monitor system program at DN000, this word is used by 

DISKN to simulate a LIBF link word. The contents of this word should reference 
the simulated LIBF at DN902. 

DN020+4 Contents of the LIBF link word if called by a user- written LIBF. 

DN902 and Simulated LIBF parameters for direct branch input: 

DN902+1 D0010 = /1100 for read input 

= /2200 for write input 
D0010+1 = address I/O area 

DISKN is capable of executing 5 drives simultaneously. Reference to the proper disk drive work areas 
is accomplished by use of a table. XR1 is used to point to the relative starting position for each specific 
drive in the table. The starting address in the table is computed as follows: 
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Significant variables (Continued): 


Symbolic location 


Contents/Usw 




The contents of location DNXXX+XR1 where DNXXX is the first entry 
in the table and XR1 contains twice the drive code. 




Example: Assume drive 1 is referenced. The address would be: 
DNXXX+(1 x 2) = DNXXX + 2 


DN952 and 
DN952+1 


First and second words of Seek IOCC if one is required; also used as temporary 
storage. 


DN050+1 


Drive determination: the drive currently being referenced may be determined by 
the contents of XR1 corresponding to the relative starting address in the drive 
table, or by examining the contents of STOX1+1. This location contains twice the 
drive code. 


Index Register 2 


Drive code and I/O area address at various times during execution of this routine. 


DN978+XR1 


Current position (sector address) of the heads on the referenced drive. 


DN980+XR1 


Last two words of the I/O area just read into. 


DN982+XR1 


Address of the user s error routine. 


DN983+XR1 


Current seeking status of the drive: 

/FFFF = drive is seeking, has just seeked, or seek is required. 
/0000 = seek not required, or not in process. 


DN970+XR1 


Originally requested user function. 


DN985+XR1 


Error counter for referenced drive for this operation: 

50 - C(DN985+XR1) = total errors occurred for this drive during requested 

function. 


DN986+XR1 and 
DN986+1+XR1 


IOCC for the current user-requested operation, except for Seek and Sense DSW. 


DN990+XR1 


Originally requested sector address. 


DN991+XR1 


Current sector address for current IOCC. 
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Significant variables: (Continued) 




Symbolic location 


Contents /Use 


DN992+XR1 


Remaining word count to be read or written. 




DN993+XR1 


Word count to be used in next I/O operation. 




DN994+XR1 


Current I/O area address. 




DN995+XR1 


Read -back -check counter: 






100 = C(DN995+XR1) = total errors occurred 


attempting to perform RBC. 


$DBSY 


Current status of each of the 5 possible drives; i 
busy, bits and 2 of $DBSY are set to 1. 


e. , if drives and 2 are both 
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System 

Loader 

Flowcharts: 

SYL01 - 05 



Cold Start 
Loader 

Flowchart: 
CST01 



FLOWCHARTS 



Cold Start 
Program 

Flowchart: 
CST02 



LINK 



DUMP 



If W 



Skeleton 

Supervisor 

Flowchart: 

SUP01 



EXIT 
I 



Core Image 
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XMIT-ENQ ON 

RETRY OR 

MONITOR 



XMIT-EOT ON 



YES • WRITE ENQ, • 



». XHIT-ENQ ON •• X START READ 



•••E3« 

UPDATIE 

POINTERS i 

COUNTS, 

INDICATORS 



.• TRANS. *- NO 
•- END CHAR .»... 

•. NEEDED -• 



RETURN TO 

MONITOR 
OPERATION 



• WRITE BCC, 
.X START READ 



COMPARE BCC 

RCVED TO BCC 

ACCUMULATED 



■ALTERNATE ACKS, 
• USER COUNT - 
.X» LENGTH. RTBSY 



OFF 



» START PROG. 
.X TIMER, INSERT 
• OLE SYN « 



• ERROR 0800 
•RETRY, MONITOR, 

• OR ACCEPT 



ERROR 0200 

RETRY OR 

MONITOR 



WRITE NAK 
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Al *. 






A2 *. 


.....A3* ••».••.». 








* *• 






.• CONTROL •• YES 




• • 


SOH OR •• YES 


• 


CONTROL MODE • 
OFF • 


. 




• 


*". .** 






*"• • "* 


» 


............... 


• NO 






• NO 




r.x. fi • 








X 






X 


.... 








.*• 






Bl ». 






B2 *. 


















NO •• TURN- ». 


NO 




POLL OR ». 
SELECT .» 






.... AROUND .• 










• • • • 




• 


RCVED .• 







WRITt NAK. 
START READ 



HKITb fcUlt 
START READ 



•CONTROL MODE ON* 



* END OP. START • 



ur i 
REAO 



END OP. START 



READ 



...*F1**....*. 
' EXIT 
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» CLEAR I/O « 

•BUFFER IF fcRITK« 
• OPERATION « 



RfSET READ 

INDICATOR AND 

DUFFER FULL 

INDICATOR 



•SAVE ADDRESS OF« 

• LIbF CALLS FOR • 
» SUBSEOOFNT • 

• ENTRIES • 



.• SFIO •. 
> EVER • 
INITIALIZED 



SAVE TRACE 

DEVICE AND 

PRECI SIOM 



EXIT TCI tEXIT 
IN SKELETON 
SUPERVISOR 



SAVE FORMAT 

STMT LOC AND 

GET DEVICE 

NUMBER 



• VALID • 

FOR READ OR 
». WRITE .• 



SET UP BUFFER 

SIZE AND ZERO 

COUNT 



• SET EXIT 

• ADDRESS TO 
•CONTINUE AFTER 

• I/O 



SET COUNT OF 
CHARACTERS TO 
READ OR WRITE 



FOO, *. YES 

ERROR SW 

SET .. 



» CLEAR I/O 
•BUFFER IF READ 
• OPERATION 



SF390 
...X*SET FOOl SWITCH* 



•EXIT TO CALLER 



.• ERROR *. NO .• ER 

• . F003,5,6i7 .* X». FC 



,X*SET FAC TO ZERO* 
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ENTRY 

SUBSCRIPTED 

VARIABLE 



NON 

SUBSCRIPTION 

VARIABLE 



» INCREMENT • 
» BUFFER PT BY • 
•COUNT SPECIFIED" 



» SET UP • 
» DISPLACEMENT » 
» FROM BASE • 
• ADDRESS, SET • 
•ARRAY SIZE TO !♦ 



• SET UP « 
•DISPLACEMENT UF« 
» ZERO, ARRAY • 

• SIZE IS 1 • 



•SET UP ADDRESS 
• OF FIRST ELT, 
» SET UP ARRAY 
» SIZE 



•STORE ADDRESS, 

• ARRAY SIZE, 

• EXIT ADDRESS 



SET UP 

NON-DIGIT 

COUNT, 1=2, 

F = 3, E=7 



REDO •. YES 
INDICATOR ...... 

SET .• 



•CLEAR WORK AREA" 



.E 003 A4 

• F 003 A4 

.1 003 A3 

.A 003 Bl 

.X 002 A4 

.H 003 Al 

• T 002 A5 

.SLSH..002 G4 

.G.R...002 CA 

.F.R...002 D4 

.RE00..002 H4 



ALL 

REPEATS 

DONE 



GET WORD FROM 

FORMAT 

STATEMENT 



STORE TOTAL 

FIELD WIDTH 

I WW) 



.•FORMAT ». •••• 

» TYPE • • NO • 
E,F,I ,A, OR .»....X» D3 



•RETURN TO M.L. • 



.X»RETURN TO M.L. 
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• SET DATA PT AS 

< NEXT FORMAT 

< LOCATION 



» SET UP CHARS 
•PER WORD FROM A 
• TYPE 
» SPECIFICATION 



• MOVE DATA FROM 
«STORAGt TO I/O 
» BUFFER 



•MOVE DATA FROM 

• I/O BUFFER TO 

• STORAGE 



INPUT AND 

CONVERT kta 

CHARS FF'.OM 

BUFFER 



DATA ♦. YtS 
EXCEED .*.... 
SPECS. .• 



PACK BUFFER 

FIELD MI TH 

ASTERISKS 



ERROR •. YES 

F003,5,6 

. OR 7 .• 



•DECREMENT LIST • 
•ADDRESS BY DATA* 

• TYPE, LOWER • 

• ARRAY COUNT I • 
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„.X« K3 

SCOMP 

..••^••••••••> 

•WRITE COMPLETE 



.» LAST •. 
.« FORMAT •. 
•SPECIFICATION. 
*. SLASH .• 



•RETURN TO M.L. 
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SET PREVIOUS 
OPERATION 

INDICATOR TO 

CURRENT 

OPERATION 



•WAIT AT LOC /8E« 

..X'WITH A DISPLAY • 

« OF /lOOO » 



CZ200 
YES .• 



• INITIALIZE 

• READ/WRITE 

» IOCC, CLEAR 
►LAST INDICATOR 



PREVIOUS 
OPERATION 
. READ 



CONVERT EBC 
CARDS TO 
HOLERITH 



SENSE DEVICE 



OPERATION « 
COMPLETE 
. INTERRUPT. « 



PREVIOUS 
OPERATION 
. WRITE . 



D2 •• 

'. READY .». 



FEED CARD 



■WAIT AT LOC 12A 
•WITH DISPLAY OF 
• /lOOO 



• //BLANK • 

TEST SWITCH 
t. SET .• 



» FIRST 

THREE CHAR 
•. //BLANK . 



CALL tEXIf 



.CZ230 X 

••••••Hl<>*>>><« 

I..X SENSE DEVICE 



FEED LAST CARD 



•»K4»»»»«»» 

RETURN TO 

CALLER 
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• •••A3* >••••••• 

• 0P-C01PLETE • 
•INTERRUPT ILS04* 



• //BLANK • 

TEST SWITCH 
•• SET •• 



••••B2******** 

SET TO READ 

FIRST THREE 

CARD COLUMNS 

INTO SPECIAL 

BUFFER 



• SENSE DSW TO « 
RESET INTERRUPT 
• ANO SAVE • 



SET OPERATION 

COMPLETE 

INTERRUPT 

SWITCH 



•RETURN TO ILS04* 



••••F !*•••••••• 

•RETURN TO ILSOO* 
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SET SPACE 
C0UNT=1 FOR 
SINGLE SPACE 



START PRINTER 



t.««»A<<«»»»»»»»« 
START CARRIAGE 



StNSE DEVICE 



DOUBLE 

SPACE 

REQUEST 



» IDLE 

SCANS 
•.COMPLETE 



• SENSE DEVICE 
WITH RESET AND 
• SAVE DSW « 



READ EMITTER 



•WAIT AT LOC /2A« 
•WITH DISPLAY OF« 
• /6000 • 



.... £3. ....«.•. 

•EXIT TO CALLER 



•o«»»E5*>>**<>«*« 

•SCAN BUFFER FOR" 

• EMITTED CHAR, • 
» SET BITS IN • 

• PRINT SCAN • 
» BUFFER • 



• OECR 

SPACE CTR, 
». CTR = 



.*..F5««*« • •••• 
•RETURN TO ILSOl" 



EJECT 

PAGE 
REQUEST 



SENSE DEVICE 



SPACE PRINTER 



»»»«G4»»«*«.« 

OR CHANNEL I 

BIT INTO 

CHANNEL 12 

SWITCH 



SUPPRESS 
SPACE 
. REQUEST 



CHANNEL 

12 SWITCH 

SET 



STOP CARRIAGE 



STOP PRINTER 



•EXIT TO CALLER 



• SET INTERRUPT • 

• SWITCH TO • 
•CHANNEL 1 FOUND* 



.X»RETURN TO ILS01»X. 



• SET INTERRUPT 
.•SWITCH TO IDLE 
•SCANS COMPLETE 
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.X START READER 



SET UP FOR 
UPPER CASE 
CONVERSION 



INTERRUPT 

SWITCH 

SET 



SET UP FOR 
LOWER CASE 
CONVERSION 



>SET CHAR COUNT 
•TO MAXIMUM FOR 
t READ 



C3». 

» CONVERT 

• CHARACTER 

• ACCORDING TO 
•CASE, STORE IN 
» BUFFER 



•INCREMENT CHAR 
•COUNT BY 1 FOR 
» NL CHAR 



• INCREMENT 

• BUFFER ADR. 
•DECREMENT CHAR 

• COUNT 



•SET NL NO EXIT 

• OUTPUT CASE 

• SHIFT 



READ CHARACTER 



«.».». Fl»«.». ••*•.« 
.X SENSE DEVICE X... 



YES 
.X» K2 



CASE 

CHANGE 

.REQUIRED 



•WAIT AT LOC /2A« 

•WITH DISPLAY OF« 

• /3000 • 



SET TO OUTPUT 

PROPER CASE 

CHAR 



CLEAR CASE 
SWITCH LOAD 
CHARACTER 



CALL SEX1T 



PUNCH CHARACTER 
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ShNSE DEVICE 



•WAIT AT LOC /2A» 
•WITH DISPLAY OF* 
• MOOO • 



* set up meet 

» PLACE WORD 
•COUNT IN FRONT 
» OF I/O BUFFER 



SET ILSCH 

INTERRUP EXIT 

TO RETURN TO 

RZIOO 



READ CARD 



•WAIT AT LOC /8E< 
•WITH DISPLAY OF< 
• MOOO « 



INTERRUPT 

SWITCH 

SET 



»...F4. ........ 

•RETURN TO ILSO*" 



.• //BLANK < 

CONTROL 

•.READ CARD.« 



CALL $EXIT 



CONVERT 

HOLLERITH 

BUFFER TO EBC 
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> CONVERT E8C « 
i CHAR TO « 

TYPEWRITER CODE" 



CHECK 

TYPEWRITER 

READY 



SENSE DEVICE 



•STURE CHARACTER" 
» COUNT- LOAD « 
•CARRIER RETURN « 
» CHAR « 



•RETURN TO ILSOA" 



CHECK 

TYPEWRITER 

READY 



• ALL 

CHARACTERS 
•- OUTPUT . 
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•INTERRUPT FROM 
> ILS04 



SENSE DSW 



SPACE PRINTER 



•WAIT AT LOC /2A« 
•WITH DISPLAY OF« 
► /2COO « 



EJECT 

PAGE 

REQUEST 



SUPPRESS 
SPACE 
. REQUEST 



••CHANNEL*. 
• 12 • 
ENCOUNTERED 



•CONVERT BUFFER 
•FROM EBCDIC TO 
• 1403 PTR CODE 



PRINT LINE 



TRANSFER 
COMPLETE 
. SWITCH 
♦.CLEAR.* 



WZUO 


DA* "». 


YES .♦ 


CHANNEL 

1 SWITCH 

SET 



••CHANNEL*. 
• 12 • 
ENCOUNTERED 



SKIP TO CHNL 1 



DOUBLE 

SPACE 

REQUEST 



• RETURN TO ILSO<t« 



hZ210 
YES .♦ 



SPACE PRINTER ....X> A3 • 
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PUNCH A COLUMN 



PZIOO 

.....B2 
•HOLEZ 



INCREMENT TO 

NEXT BUFFER 

LOCATION 



» SET ROUTINE 
•BUSY IND CLEAR 
» LAST CARD 
» SHITCH 



...*EL. ...».»*. 

•RETURN TO ILSOO" 



•»E2. •*»••« 
SENSE OSki 



.fc5. ....... 



FEtO LAST CARD X. 



»RETURN TU ILS04" 



ROUTINE 

BUSY INO 

SET 
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.X SELECT KEYBOARD 



INITIALIZE 
COUNT BUFFER 
SETUP RESTART 



'CONVERT ONE EBC« 
» TO TYPEWRITER « 
» CODE • 



TYPE ONE 
CHARACTER OR 
• CONTROL 



•SENSE INTERRUPT" 
WITH RESET SAVE 
• DSW » 



SET BUFFER 

ADD, WD CNT. 

ENTER CAR. 

RETURN 



• RETURN TO ILS04* 



KZ500 

•KZ600 012E4« 



•TEST 1/ DEVICE • 



TEST READY 



• ALL 

CHARACTERS 
•.PROCESSED. 



SENSE DSW 



CONVERTS 
CHARACTERS IN 
BUFFER TO EBC 



END OF 

LINE 

.CHARACTER. 



iJ4«»»«« 
RETURN 
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CCMVERT AND 

RESTORE INTO 

BUFFER 



• INCFEMENT « 
» BUFFER « 
•DECREMENT COUNT" 



• ALL 

CHARACTERS 
••CONVERTED. 
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APPENDIX A. EXAMPLES OF FORTRAN OBJECT CODING 



This appendix shows, by example, the Assembler 
Language equivalent for the object coding generated 

Source Coding Object Coding 

Arithmetic Statements - real, integer , and mixed modes 
I=J LD L J 

STO L I 



by the FORTRAN Compiler. A typical cross-section 
of FORTRAN statements is shown. 

Object Coding 
With Trace* 



LIBF SIAR 

DC I 



A=B 



A=I 



I=A 



LIBF 


FLD 


DC 


B 


LIBF 


FSTO 


DC 


A 


LD 


L I 


LIBF 


FLOAT 


LIBF 


FSTO 


DC 


A 


LIBF 


FLD 


DC 


A 


LIBF 


IFIX 


STO 


L I 



LIBF SFAR 



LIBF SFAR 



LIBF SIAR 

DC I 



I=K-M 



LD 


L 


K 


S 


L 


M 


STO 


L 


I 



LIBF 
DC 



SIAR 
I 



A=I-B 



LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FSUB 


DC 




B 


LIBF 




FSTO 


DC 




A 



LIBF SFAR 



* The period in this column indicates that the generated coding is the same as in the Object Coding column. Trace refers to Arithmetic 
or Transfer Trace , whichever is applicable . 
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Source Coding 



A=B-I 



A=B+I-J 



(A=I+B-J) 



I=J*K 



Object Coding 


LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FSBR 


DC 




B 


LIBF 




FSTO 


DC 




A 


LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FADD 


DC 




B 


LIBF 




FSTO 


DC 




GT1 


LD 


L 


J 


LIBF 




FLOAT 


LIBF 




FSBR 


DC 




GT1 


LIBF 




FSTO 


DC 




A 


LD 


L 


J 


M 


L 


K 


SLT 




16 


STO 


L 


I 



Object Coding 
With Trace 



LIBF 



SFAR 



LIBF 



SFAR 



LIBF 
DC 



SIAR 



A=B*C 



A=B*I 



LIBF 


FLD 


DC. 


B 


LIBF 


FMPY 


DC. 


C 


LIBF 


FSTO 


DC 


A 


LD 


L I 


LIBF 


FLOAT 


LIBF 


FMPY 


DC. 


B 


LIBF 


FSTO 


DC. 


A 



LIBF 



SFAR 



LIBF 



SFAR 
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Source Coding 



I=J/ K 





Obje 


ct Coding 


LD 




►-J 


SRT 




16 


D 




L K 


STO 




hJ 



Object Coding 
With Trace 



LIBF 
DC 



SIAR 
I 



A=B/ C 



I=J / (K+M) 



LIBF 




FLD 


DC 




B 


LIBF 




FDIV 


DC 




C 


LIBF 




FSTO 


DC 




A 


LD 


L 


K 


A 


L 


M 


STO 


3 


+126 


LD 


L 


J 


SRT 




16 


D 


3 


+126 


STO 


L 


I 



LIBF 



SFAR 



LIBF 
DC 



SIAR 
I 



I=A /J 



LD 


L 


J 


LIBF 




FLOAT 


LIBF 




FDVR 


DC 




A 


LIBF 




IFIX 


STO 


L 


I 



LIBF 
DC 



SIAR 



I=J**K 



LD 


L 


J 


LIBF 




FIXI 


DC 




K 


STO 


L 


I 



LIBF 
DC 



SIAR 
I 
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Source Coding 



A=B**I 



A=B**C 



A=I**B 



A=B**(I+J) 



A=B**(C+D) 



Obje 


ct Coding 


LIBF 


FLD 


DC. 


B 


LIBF 


FAXI 


DC 


I 


LIBF 


FSTO 


DC 


A 


LIBF 


FLD 


DC 


B 


CALL 


FAXB 


DC 


C 


LIBF 


FSTO 


DC 


A 


LD 


L I 


LIBF 


FLOAT 


CALL 


FAXB 


DC 


B 


LIBF 


FSTO 


DC 


A 


LD 


L I 


A 


L J 


STO 


L GTl 


LIBF 


FLD 


DC 


B 


LIBF 


FAXI 


DC 


GTl 


LIBF 


FSTO 


DC 


A 


LIBF 


FLD 


DC 


C 


LIBF 


FADD 


DC 


D 


LIBF 


FSTO 


DC 


GTl 


LIBF 


FLD 


DC 


B 



Object Coding 
With Trace 



LIBF 



LIBF 



LIBF 



SFAR 



SFAR 



SFAR 



LIBF 



SFAR 
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Source Coding 



A=B+C-(2**D*E-F)/G 





Obj 


ect Coding 




CALL 


FAXB 




DC 


GT1 




LIBF 


FSTO 




DC 


A 




LIBF 


FLD 




DC 


B 




LIBF 


FADD 




DC 


C 




LIBF 


FSTO 




DC 


GT1 




LD 


L ADR1 




LIBF 


FLOAT 




CALL 


FAXB 




DC 


D 




LIBF 


FMPY 




DC 


E 




LIBF 


FSUB 




DC 


F 




LIBF 


FDIV 




DC 


G 




LIBF 


FSBR 




DC 


GT1 




LIBF 


FSTO 




DC 


A 


ADR1 


DC 


2 



Object Coding 
With Trace 



LIBF 



SFAR 



LIBF 



SFAR 



Arithmetic Statements - Subscripted Expressions 



A(I)=B(I,J)+C(I,J) 



LIBF 


SUBSC 


DC 


S.GT1 


DC 


value D , for array A 
4 


DC 


I 


DC 


value D for array A (see N 


LIBF 


SUBSC 


DC 


SGT2 


DC 


value D for arrays B and C 


DC 


I 
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Source Coding 



M=L(I,J,K) 



Object Coding 


DC 




value D 


DC 




J 


DC 




value D 


LIBF 




FLDX 


DC 




B 


LIBF 




FADDX 


DC 




C 


LDX 


11 


SGT1 


LIBF 




FSTOX 


DC 




A 



value D for arrays B and C (see Note 1) 



LIBF 




SUBSC 


DC 




SGT1 


DC 




value D , for array L 
4 


DC 




I 


DC 




value D for array L 


DC 




J 


DC 




value D for array L 


DC 




K 


DC 




value D for array L 


LD 


LI 


L 


STO 


L 


M 



Object Coding 
With Trace 



LIBF SFARX 



LIBF 
DC 



SIAR 
M 



M(I)=M(I+1)+MQ) 



LIBF 


SUBSC 


DC 


SGT1 


DC 


value D for array M 


DC 


I 


DC 


value D for array M 


LIBF 


SUBSC 


DC 


SGT2 


DC 


value D for array M 


DC 


I 


DC 


value D for array M 


LIBF 


SUBSC 


DC 


SGT3 


DC 


value D , for array M 
4 


DC 


J 


DC 


value D for array M 
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Source Coding 



Obj 


2Ct Coding 


LDX 


11 


SGT2 


LD 


LI 


M 


LDX 


11 


SGT3 


A 


LI 


M 


LDX 


11 


SGT1 


STO 


LI 


M 



Object Coding 
With Trace 



LIBF 
DC 



SIARX 
M 



M(1)=M(2)+M(3) 



LDX LI value D for literal subscript 2 

LD LI M 

LDX LI value D for literal subscript 3 

A LI M 

LDX LI value D for literal subscript 1 

STO LI M 



LIBF 
DC 



SIARX 

M 



M(1)=N(1)+M(1) 



LDX 


LI 


va 


LD 


LI 


N 


A 


LI 


M 


STO 


LI 


M 



value D for literal subscript 1 



LIBF 
DC 



SIARX 

M 



Statement Function Statements 



A=JOE(B+C,D)+E 



LIBF 


FLD 


DC 


B 


LIBF 


FADD 


DC 


C 


LIBF 


FSTO 


DC 


GT1 


CALL 


JOE 


DC 


GT1 


DC 


D 


LIBF 


FLOAT 


LIBF 


FADD 


DC 


E 


LIBF 


FSTO 


DC 


A 



LIBF 



SFAR 
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Source Coding 



A=C(B, .5)+E 



Object 


Coding 


CALL 


C 


DC 


B 


DC 


ADR1 


LIBF 


FADD 


DC 


E 


LIBF 


FSTO 


DC 


A 



Object Coding 
With Trace 



LIBF 



SFAR 



ADR1 



DC 



.5 



Call Statements 



CALL XY 



CALL 



XY 



CALL YZ (A(2), A(I),B>C*D) 





LIBF 




SUBSC 




DC 




SGT1 




DC 




value D for array A 




DC 




I 




DC 




value D for array A 




LIBF 




FLD 




DC 




C 




LIBF 




FMPY 




DC 




D 




LIBF 




FSTO 




DC 




GT1 




LDX 


LI 


value D for literal s 




MDX 


LI 


A 




NOP 








STX 


LI 


ADR1 




LDX 


11 


SGT1 




MDX 


LI 


A 




NOP 








STX 


LI 


ADR2 




CALL 




YZ 


ADR1 


DC 







ADR2 


DC 









DC 




B 




DC 




GT1 
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Source Coding 



CALL YZ(A(I),B,C*D) 



ADR1 



Object Co 


ding 


LIBF 




SUBSC 


DC 




SGT1 


DC 




value D for array A 


DC 




I 


DC 




value D for array A 


LIBF 




FLD 


DC 




C 


LIBF 




FMPY 


DC 




D 


LIBF 




FSTO 


DC 




GT1 


LDX 


11 


SGT1 


MDX 


LI 


A 


NOP 






STX 


LI 


ADR1 


CALL 




YZ 


DC 







DC 




B 


DC 




GT1 



Object Coding 
With Trace 



DO and CONTINUE Statements 



DO 10 I=J,K 



ADR1 



10 CONTINUE 



DO 10 I=J,K,M 



10 CONTINUE 



ADR1 



LD L J 

STO L I 

(next sequential instruction) 



MDX 


L 


1,1 


MDX 




* 


LD 


L 


I 


S 


L 


K 


BSC 


L 


ADR1.+ 


LD 


L 


J 


STO 


L 


I 



(next sequential instruction) 
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Source Coding 





Object Cod 


is& 


LD 


L 


I 


A 


L 


M 


STO 


L 


I 


S 


L 


K 


BSC 


L 


ADR1.+ 



Object Coding 
With Trace 



GO TO Statement 



GO TO 1 1 1 



BSC L ADR1 



ADR1 (coding generated from statement 111) 



Computed GO TO Statement 



GO TO (111,112,113),! 



LOCI 



LDX 


11 


I 


BSC 


11 


LOC1+1 


DC 




ADR1 


DC 




ADR2 


DC 




ADR3 



LIBF 



SGOTO 



ADR1 (coding generated from statement 111) 



ADR2 (coding generated from statement 112) 



ADR3 (coding generated from statement 113) 



IF Statements 



IF (I) 111,112,113 



LD 


L 


I 


BSC 


L 


ADR1,+Z 


BSC 


L 


ADR2,+- 


BSC 


L 


ADR3,-Z 



LIBF SIIF 

BSC L ADR1 , +Z 

BSC L ADR2 , +- 

BSC L ADR3,-Z 



ADR1 (coding generated from statement 111) 



ADR2 (coding generated from statement 112) 



ADR3 (coding generated from statement 113) 
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Source Coding 

IF (A) 111,100,113 
100 CONTINUE 



Object 


Coding 


LIBF 




FLD 


DC 




A 


LD 


3 


+126 


BSC 


L 


ADR1,+Z 


BSC 


L 


ADR2,-Z 



Object Coding 
With Trace 



LIBF 



SFIF 



STOP Statement 



ADR1 (coding generated from statement 111) 



ADR2 (coding generated from statement 113) 



IF(A+I) 100,111,100 
100 CONTINUE 



LD 


L 


I 


LIBF 




FLOAT 


LIBF 




FADD 


DC 




A 


LD 


3 


+126 


BSC 


L 


ADR1.+- 



LIBF 



SFIF 



ADR1 (coding generated from statement 111) 



IF (I) 111,111,112 



LD L I 

BSC L ADR1.+ 

BSC L ADR2,-Z 



LIBF SIIF 

BSC L ADR1.+ 

BSC L ADR2.-Z 



PAUSE Statement 



ADR1 (coding generated from statement 111) 



ADR2 (coding generated from statement 112) 



PAUSE 11 



LIBF 
DC 



PAUSE 
ADR1 



ADR1 DC 



11 



STOP 21 



LIBF 
DC 



STOP 
ADR1 



ADR1 DC 



21 
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Source Coding 



Object Coding 



RETURN Statements 

for (REAL) FUNCTION subprogram 

where the subprogram name is COMP 



LIBF FLD 

DC COMP 

BSC I address of subprogram linkword in transfer vector 



for (INTEGER) FUNCTION subprogram LD L ICOMP 

where the subprogram name is ICOMP BSC I address of subprogram linkword in transfer vector 



for SUBROUTINE subprogram 



BSC I address of subprogram linkword in transfer vector 



END Statement 

The END statement produces no object coding. 

I/O Initialization Calls 

The following coding for the initialization of the FORTRAN I/O subroutines at execution time is generated and inserted into the program 
by the compiler. 



LIBF 


UFIO (see Note 2) 


DC 


/OOOX 


LIBF 


SDFIO (see Note 3) 


DC 


/OOOX 


LIBF 


SFIO (see Note 4) 


DC 


/OOYX 


DC 


/0016 


LIBF 


TYPEZ or LIBF WRTYZ (see Note 5) 


DC 





LIBF 


CARDZ (see Note 6) 


DC 





LIBF 


PRNTZ 


DC 





LIBF 


PAPTZ 


DC 





LIBF 


PRNZ 


DC 





LIBF 


TYPEZ (see Note 5) 


DC 





LIBF 


WCHRI 


DC 





LIBF 


READZ 


DC 





LIBF 


PNCHZ (see Note 6) 


DC 
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Source Coding 



Object Coding 



Non-Disk I/O Statements 



READ (N,101)A,I 



READ (N.101) X 

where X is dimensioned 



READ (N, 101 )(X(I), 1=1,5) 





LIBF 




SRED 




DC 




N 




DC 




101 




LIBF 




SIOF 




DC 




A 




LIBF 




SIOI 




DC 




I 




LIBF 




SCOMP 




LIBF 




SRED 




DC 




N 




DC 




101 




LIBF 




SIOAF 




DC 




X 




DC 




number of elements in array X 




LIBF 




SCOMP 




LIBF 




SRED 




DC 




N 




DC 




101 




LD 


L 


ADR1 




STO 


L 


I 


ADR3 


LIBF 




SUBSC 




DC 




SGT1 




DC 




value D for array X 




DC 




I 




DC 




value D for array X (see Note 




LIBF 




SIOFX 




DC 




X 




MDX 


L 


1,1 




LD 


L 


I 




S 


L 


ADR2 




BSC 


L 


ADR3,+ 




LIBF 




SCOMP 


ADR1 


DC 




1 


ADR2 


DC 




5 
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Source Coding 



WRITE(N,101)A,I 



Object Coding 


LIBF 


SWRT 


DC 


N 


DC 


101 


LIBF 


SIOF 


DC 


A 


LIBF 


SIOI 


DC 


I 


LIBF 


SCOMP 



Unformatted I/O Sta tements 



READ (N) A, I 



READ (N) 



WRITE (N) A, I 



LIBF 


URED 


DC. 


N 


LIBF 


UIOF 


DC. 


A 


LIBF 


UIOI 


DC 


I 


LIBF 


UCOMP 


LIBF 


URED 


DC 


N 


LIBF 


UCOMP 


LIBF 


UWRT 


DC 


N 


LIBF 


UIOF 


DC 


A 


LIBF 


UIOI 


DC 


I 


LIBF 


UCOMP 



Disk I/O Statements 



READ (I'K) A, I 



LIBF 


SDRED 


DC 


I 


DC 


K 


LIBF 


SDF 


DC 


A 


LIBF 


SDI 


DC 


I 


LIBF 


SDCOM 
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Source Coding 

WRITE (2 1BASE+IDISP (K)) A,B,X 
where A, B, and X are dimensioned 



FIND (J, K) 



Object Coding 


LIBF 




SUBSC 


DC 




SGT1 


DC 




value D , for array IDISP 
4 


DC 




K 


DC 




value D for array IDISP (see N 


LD 


L 


IBASE 


A 


LI 


IDISP 


STO 




GT1 


LIBF 




SDWRT 


DC 




2 


DC 




GT1 


LIBF 




SDAF 


DC 




A 


DC 




number of elements in array A 


LIBF 




SDAF 


DC 




B 


DC 




number of elements in array B 


LIBF 




SDAF 


DC 




X 


DC 




number of elements in array X 


LIBF 




SDCOM 


LIBF 




SDFND 


DC 




J 


DC 




K 



Manipulative I/O Statements 



BACKSPACE I 



REWIND 10 



LIBF 


BCKSP 


DC 


I 


LIBF 


REWND 


DC 


ADR1 



ADR1 



DC 



10 



END FILE 10 



LIBF 
DC 



EOF 
ADR1 



ADR1 



DC 



10 
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NOTES: 

1 . Tagged to indicate the end of the subscript argument list . 

2. The LIBF UFIO and its parameter are inserted only if unformatted I/O statements are encountered in the program. X is the integer size 
and precision indicator. 

3. The LIBF SDFIO and its parameter are inserted only if the Disk indicator (bit 8) in the IOCS word is on. X is the integer size and 
precision indicator. 

4. The LIBF SFIO, its parameters, and the LIBF table are inserted only if indicators other than the Disk indicator in the IOCS word are: on. 
Y is the trace device indicator. X is the integer size and precision indicator. The DC /0016 provides the number of words from the 
LIBF SFIO to the first word following the LIBF table, inclusive. 

A LIBF to a FORTRAN I/O device subroutine is present in the LIBF table for each device indicated by a bit in the IOCS word. If a device 
is not indicated by a bit in the IOCS word, the LIBF is replaced by a DC 0. 

5. If "KEYBOARD" is specified, the LIBF TYPEZ is inserted; if "TYPEWRITER" is specified, the LIBF WRTYZ is inserted. 

6. If "CARD" is specified, the LIBF PNCHZ is not inserted; if "1442 PUNCH" is specified, the LIBF CARDZ is not inserted. 
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APPENDIX B. LISTINGS 



This appendix contains 1) assembly listings of the 
Resident Monitor, including DISKZ, and the Cold 
Start Program, 2) listings describing the contents 
of DCOM and the Resident Image, 3) the equiva- 
lences used throughout the monitor system pro- 
grams, and 4) a cross-reference listing of all the 
symbols used in the above items. 



The contents of this appendix are not to be 
construed as an external specification, i. e. , the 
locations in these listings may be changed. $ PRE T, 
$IREQ, $EXTT, $LINK, and $DUMP are the only 
guaranteed locations. 

Note that in the listings the character @ is 
printed as ' , and the character # is printed as =. 



DCOM 

ADDR REL OBJECT 



0001 
000? 
000 3 
CC04 
0005 
000b 
000 7 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
001b 
0016 
0017 
0018 

com 

0020 
0021 
0022 
002 3 
0024 
0025 
0026 
0027 

002 8 
0029 
00 30 
0031 

003 2 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 

004 2 
0043 
0044 
C04 5 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
00 74 
0075 
0076 
C077 
0078 
0079 
0080 
0081 
00 82 
0083 
0084 



LABEL 0PC0 FT OPERANDS 



RLTV ADDR* SYMBOL* DESCRIPTION 



16 
17 
18 
19 
20 
21 
22 
23 



39 

40 



= NAME 
= DBCT 
= FCNT 

= SYSC 
= JDSW 



= LCNT 
= MPSW 

= MDF1 
= MDF2 
= NCNT 
= ENTY 
= RP67 
= T0DR 
= FRDR 
= FH0L 
= ESZE 
=UH0L 
= USZE 
= DCSW 
= PI0D 
= PPTR 
= CIAD 

= ANDU 



RESERVED FOR EVEN BOUNDARIES 
NAME OF PROGRAM/CORE LOAD 
BLOCK COUNT OF PROG/CURE LOAD 
•FILES SWITCH — ZERO MEANS NO 
FILES HAVE BEEN EQUATED 
SYS/NON-SYS CARTRIDGE INDR 
JOBT SWITCH — NON-ZERO MEANS 
TEMPORARY MODE 
CLB-RETURN-TO-OUP SWITCH — 
ZER0=CLB RETURN TO SUPV 
NO. OF LOCALS 

CORE MAP SWITCH — ZERO MEANS 
DO NOT PRINT A CORE MAP 
NO. DUP CTRL RECDS (MuOIF) 
ADDR OF MODIF BUFFER 
NO. OF NOCALS 

RLTV ENTRY ADDR OF PROGRAM 
1442-5 SW (0=1442-5 ON SYSTEM 
'T0< WORKING STG DRIVE CODE 
'FROM' WORKING STG DRIVE CODE 
ADDR OF LARGEST HULL IN FXA 
8LK CNF OF LARGEST HOLE IN FXA 
ADDR OF LARGEST HOLE IN UA 
6LK CNT OF LARGEST HOLE IN UA 
DUP CALL SW— N0N-ZER0=DUP CALL 
PRINCIPAL I/O DEVICE INDICATOR 
PRINC. PRINT DEVICE INDICATOR 
RLTV AUUR IN "STRT OF CIL ADDR 
RESERVED FOR FUTURt USE 
1+BLUCK ADDR OF END OF USER 
ARFA (ADJUSTED) LOGICAL DR C 
1+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL OR 1 
1+RLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 2 
1+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 3 
1+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 4 
1+BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 
1 + BLOCK AGDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 1 
1+BLOCK ADDR OF END OF USER 
AREA (EASE) LOGICAL DRIVE 7 
1+BLOCK ADDR OF END OF USER 
AREA (EASE) LOGICAL DRIVE 3 
1+RLOCK ADDR OF END OF USER 
ARFA (BASE) LOGICAL DRIVE 4 
FILE PROTECT ADOR, LOGICAL 
DRIVE (BASE) 
FILE PROJECT ADOR, LOGICAL 
CRIVE 1 (BASE) 
FILE PROTECT ADDR, LOGICAL 
DRIVE 2 (BASE) 
FILE PROTECT ADDR, LOGICAL 
DRIVE 3 (BASE) 
FILE PROTECT ADDR, LOGICAL 
DRIVE 4 (BASE) 

CARTRIDGE ID, PHYSICAL DRIVE 
CARTRIDGE ID, PHYSICAL DRIVE 1 
CARTRIDGE ID, PHYSICAL DRIVE 2 
CARTRIDGE ID, PHYSICAL DRIVE 3 
CARTRIDGE ID, PHYSICAL DRIVE 4 
CARTRIDGE ID, LOGICAL DRIVE 
LOGICAL DRIVE 1 
LOGICAL DRIVE 2 
LOGICAL DRIVE 3 
LOGICAL DRIVE 4 
LOGICAL DR 



CARTRIDGE ID, 

CARTRIDGE ID, 

CARTRIDGF ID, 

CARTRIDGE ID, 

SCTR ADDR OF CIB, 

SCTR ADDR OF CIB, LOGICAL OR 1 

SCTR ADDR OF CIB, LOGICAL DR 2 

SCTR ADDR OF CIB, LOGICAL DR 3 

SCTR ADDR OF CIB, LOGICAL DR 4 

SCRA, LOGICAL DRIVE 

SCRA, LOGICAL DRIVE 1 

SCRA, LOGICAL DRIVE 2 

SCRA, LOGICAL DRIVE 3 

SCRA, LOGICAL DRIVE 4 

FORMAT OF PROG IN WS, DRIVE 

FORMAT OF PROG IN WS, DRIVE 1 

FORMAT OF PROG IN WS, DRIVE 2 



ID/SEQNO 

SYS00010 
SYS00020 
SYS00030 
SYS00040 
SYS00050 
SYSC0060 
SYS00070 
SYS00080 
SYS00090 
SYS00100 

sysoouo 

SYSC0120 
SYS00130 
SYS0O140 
SYS001S0 
SYS00160 
SYS0C17O 
SYS00180 
SYS00190 
SYS00200 
SYSOC210 
SYS0C220 
SYS00230 
SYS00240 
SYSCC250 
SYS00260 
SYS0C270 
SYS00280 
SYS00290 
SYS00300 
SYSCC310 
SYS0C320 
SYSCC330 
SYSC0340 
SYSCC350 
SYS00360 
SYS00370 
SYSC0380 
SYS00390 
SYS00400 
SYSCC410 
SYSCC420 
SYS00430 
SYS00440 
SYSC0450 
SYS00460 
SYS0C470 
SYSCC480 
SYS0C490 
SYS00500 
SYSCC510 
SYS00520 
SYS00530 
SYS00540 
SYS00550 
SYS0C560 
SYS0C570 
SYS00580 
SYS0059C 
SYS0C600 
SYS0C610 
SYS00620 
SYSCC630 
SYS00640 
SYS00650 
SYS00660 
SYS0C670 
SYS0068C 
SYSCC690 
SYS0C7O0 
SYS00710 
SYS00720 
SYSCC730 
SYS0C740 
SYS00750 
SYS00760 
SYS0C770 
SYS00780 
SYS00790 
SYS00800 
SYS00810 
SYS00820 
SYSC0830 
SYS00840 
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DCOM 








ADOR REL OBJECT 


ST. NO. 


LABEL OP 




0085 


• 


73 




0086 


* 


74 




0087 


* 


75 




0088 


* 


76 




0089 


• 


77 




0090 


• 


78 




0091 


• 


79 




0092 


• 


80 




0093 


• 


81 




0094 


• 


82 




0095 


• 


83 




0096 


• 


84 




0097 


-» 


85 




0098 


* 


86 




0099 


* 


87 




0100 


* 


88 




0101 


* 


89 




0102 


• 


90 




0103 


* 


91 




0104 


* 


92 




0105 


* 


93 




0106 


• 


94 




0107 


* 


95-319 



« = FLET 



FORMAT OF PROG IN WS, DRIVE 3 
FORMAT OF PROG IN WS, DRIVE 4 
FLET SCTR ADDR, LOGICAL DR 
ADDR, 



LOGICAL DR 



« « FLET SCTR 

* * FLET SCTR ADDR, LOGICAL DR 2 

* • FLET SCTR ADDR, LOGICAL DR 3 

* • FLET SCTR ADDR, LOGICAL DR 4 

* =ULET » LET SCTR ADDR, LOGICAL DR 

* * LET SCTR ADDR, LOGICAL DR 1 

* • LET SCTR ADDR, LOGICAL DR 2 

* • LET SCTR ADDR, LOGICAL DR 3 
» • LET SCTR ADDR, LOGICAL DR 4 
» =WSCT » BLK CNT OF PROG IN WS, DRIVE 

* « BLK CNT OF PROG IN WS, DRIVE 

* « BLK CNT OF PROG IN WS, DRIVE 



* » BLK CNT OF PROG IN WS, DRIVE 3 

* * BLK CNT OF PROG IN WS, DRIVE 4 
« =CSHN » SCTR CNT CUSHION, LOGICAL DR 
« « SCTR CNT CUSHION.LOGICAL DR 1 

* • SCTR CNT CUSHION.LOGICAL DR 2 

* » SCTR CNT CUSHION.LOGICAL DR 3 

* » SCTR CNT CUSHION.LOGICAL DR 4 

* • RESERVED FOR FUTURE USE 



ID/SEQNO 

SYS00850 
SYSC0860 
SYS00870 
SYS00880 
SYS0C890 
SYS00900 
SYS00910 
SYSC0920 
SYS00930 
SYS00940 
SYS00950 
SYS0C960 
SYS00970 
SYSC0980 
SYSC0990 
SYS01000 
SYS01010 
SYS01020 
SYS01030 
SYS01040 
SYS01050 
SYS01060 
SYS01070 



RESIDENT IMAGE 
ADDR REL OBJECT 



ST.NC. 

0109 
0110 
0111 
0112 
0113 
0114 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



• RLTV ADDR« SYMBOL* DESCRIPTION 



« 210-319 



SYS01090 
SYS01100 
SYS01U0 

INITIAL VALUES FOR WORDS 4-213 SYS01120 
OF THE RESIDENT MONITOR SYS01130 
RESERVED FOR FUTURE USE SYS01140 



RESIDENT MONITOR 



ADDR REL OBJECT ST. NO. 

0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 



LABEL OPCD FT OPERANDS 

• • 
•STATUS-VERSION 2, MODIFICATION * 

• • 
•FUNCTION/OPERATION- » 

• THIS SECTION ALWAYS REMAINS IN CORE. IT • 
» IS COMPRISED OF THE COMMUNICATIONS * 

• AREA (COMMA), THE SKELETON SUPERVISOR, AND * 

• A DISK I/O SUBROUTINE, NOMINALLY DISKZ. (THE * 

• FIRST TWO OF THESE SECTIONS ARE INTERMIXED.) » 
» COMMA CONTAINS THE SYSTEM PARAMETERS REOUIR- • 

• ED TO FETCH A CORE LOAD IN CORE IMAGE FOR- * 

• MAT. THE SKELETON SUPERVISOR PROVIDES IN- * 

• STRUCTIONS FOR INITIATING A CALL EXIT, A » 

• CALL LINK, A DUMP-TO-PRINTER OR A CALL TO THE • 
» AUXILIARY SUPERVISOR. IN ADDITION, THE SKELE-* 
« TON SUPERVISOR CONTAINS SEVERAL TRAPS FOR CER-» 
» TAIN I/O FUNCTIONS/CONDITIONS. THE DISK I/O * 

• SECTION CONSISTS OF A SUBROUTINE FOR READING * 
« FROM OR WRITING ON A DISK CARTRIDGE ON A * 

• GIVEN LOGICAL DISK DRIVE. * 

• • 
•ENTRY POINTS- • 

• • SPRET-A TRAP FOR PREOPERATIVE I/O ERRORS. * 

• THE CALLING SEQUENCE IS • 

• BSI L $PRET • 

• • $PSTX-A POSTOPERATIVE ERROR TRAP FOR I/O • 

• DEVICES ON LEVEL X (X=1,2,3,0R 4). » 

• THE CALLING SEQUENCE IS • 

• BSI L tPSTX * 

• * $STOP-THE PROGRAM STOP KEY TRAP. • 

• • $EXIT-THE ENTRY POINT FOR THE EXIT/CALL • 

• EXIT STATEMENT. THE CALLING SEQUENCE IS» 

• LDX $EXIT * 

• • $LINK-TH£ ENTRY POINT FOR THE LINK/CALL • 

• LINK STATEMENT. THE CALLING SEQUENCE IS* 

• BSI L SLINK • 

• • $DUMP-THE ENTRY POINT FOR THE DUMP/PDMP * 

• STATEMENT. THE CALLING SEQUENCE IS • 

• BSI L *DUMP • 



ID/SEQNO 

SYS01160 
SYS01170 
SYS01180 
SYS01190 
SYS01200 
SYS01210 
SYS01220 
SYS01230 
SYS01240 
SYS01250 
SYSC1260 
SYS01270 
SYS01280 
SYS01290 
SYS01300 
SYS01310 
SYS01320 
SYS01330 
SYS01340 
SYS01350 
SYS01360 
SYS01370 
SYS01380 
SYS01390 
SYS01400 
SYS01410 
SYS01420 
SYS01430 
SYS01440 
SYS01450 
SYS01460 
SYS01470 
SYS01480 
SYS01490 
SYS01500 
SYS01510 
SYS01520 
SYS01530 
SYS01540 
SYS01550 
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ADOR REL OBJECT ST. NO. 

0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 



LABEL OPCD FT OPERANDS 

• DC FORMAT » 

• DC LIMIT1 * 

• DC LIMIT2 « 

• WHERE LIMIT1 AND LIM1T2 ARE THE LIMITS • 
» BETWEEN WHICH THE DUMP IS TO OCCURt AND* 

• FORMAT IS A CODE INDICATING THE FORMAT » 

• OF THE DUMP. IF FORMAT IS NEGATIVE, • 

• THE AUXILIARY SUPERVISOR IS FETCHED « 

• AND CONTROL PASSED TO IT. » 

• « DZOOO-ENTERED WHEN THE CALLER WISHES TO • 

• PERFORM A DISK I/O OPERATION. THE * 

• CALLING SEQUENCE VARIES WITH THE • 

• VERSION OF THE DISK I/O SUBROUTINE. * 

• » $I200/$I400-ENTERED WHEN THE OPERATION- * 

• COMPLETE INTERRUPT OCCURS ON » 

• LEVEL 2/4. » 

• • 
•INPUT-N/A » 

• • 
•OUTPUT-WORDS 6-4090 SAVED ON THE CIB ON A CALL » 

• DUMP » 
» • 
•EXTERNAL REFERENCES-N/A • 
» • 
•EXITS- • 

• • NORMAL • 

• *THE EXITS FROM THE SUBROUTINES AT $PRET * 

• $PST1, *PST2» $PST3, $PST4, AND $STOP • 

• ARE BRANCH INSTRUCTIONS FOLLOWING A • 

• WAIT INSTRUCTION. $STOP TURNS OFF IN- • 

• TERRUPT LEVEL 5 AFTER THE START KEY IS • 

• DEPRESSED. • 

• *THE EXITS FROM $EXIT,*LINK, AND $DUMP ARE * 

• TO THE CORE IMAGE LOAOER, PHASE 1, « 

• AFTER THAT PHASE HAS BEEN FETCHED. • 
» «THE EXIT FROM DZOOO IS BACK TO THE • 
» CALLER AFTER THE REQUESTED OISK OPERA- • 

• TION HAS BEEN INITIATED. • 

• *THE EXITS FROM $I200/$I400 ARE BACK TO • 

• THE ADDRESSES FROM WHICH THE DISK OP- • 

• ERATION COMPLETE INTERRUPT OCCURED • 

• AFTER THE INTERRUPT HAS BEEN SERVICED • 

• BY THE APPROPRIATE ISS. ♦ 

• • ERROR-N/A • 

• • 
•TABLES/WORK AREAS- • 

• • $ACDE * 

• * $CH12 • 

• • $CILA • 

• • SCLSW • 

• • $COMN • 

• • $CORE • 

• • $CTSW • 

• • $CXR1 • 

• • $CYLN * 

• * $DABL • 

• • $DADR • 

• • $DBSY * 

• • $DCYL » 

• • $QMPF • 

• • $DREQ • 

• » $FPAD » 

• • $HASH » 

• • $IBT2 » 

• • $IBT4 • 

• • $IBSY • 

• * $IOCT * 

• • *KCSW • 

• • $LAST • 

• * $NDUP • 

• • $NXEQ • 

• • $PBSY • 

• • $PGCT • 

• • $PHSE • 

• • $RMSW • 

• • $SNLT • 

• • $UFIO • 

• • $ULET » 
» • $WRD1 • 

• • $WSDR • 

• • 
•ATTRIBUTES-REUSABLE * 

• • 
•NOTES- • 

• THERE ARE WAIT INSTRUCTIONS AT $PRET+1, • 
» SSTOP+1, AND $PSTX+1. DEPRESSING THE START • 

• KEY WILL RETURN CONTROL TO THE CALLER IN ALL * 

• CASES. • 
••••••••*••••*•••»«•••-»*•••*»«••••••*•«••••••*••»*« 



ID/SEQNO 

SYS01560 
SYS01570 
SYS01580 
SYS01590 
SYS01600 
SYS01610 
SYS01620 
SYS01630 
SY SO 1640 
SYS01650 
SYS01660 
SYS01670 
SYS01680 
SYS01690 
SYS01700 
SYS01710 
SYS01720 
SYS01730 
SYS01740 
SYS01750 
SYS01760 
SYS01770 
SYS01780 
SYS01790 
SYS01800 
SYS01810 
SYS01820 
SYS01830 
SYS01840 
SYS01850 
SYS01860 
SYS01870 
SYS01880 
SYS01890 
SYS01900 
SYS01910 
SYS01920 
SYS01930 
SYS01940 
SYS01950 
SYS01960 
SYS01970 
SYS01980 
SYS01990 
SYS02000 
SYS02010 
SYS02020 
SYS02030 
SYS02040 
SYS02050 
SYS02060 
SYS02070 
SYS02080 
SYS02090 
SYS02100 
SYS02110 
SYS02120 
SYS02130 
SYS02140 
SY SO 2 150 
SYS02160 
SYS02170 
SYS02180 
SYS02190 
SYS02200 
SYS02210 
SYS02220 
SYS02230 
SYS02240 
SYS02250 
SYS02260 
SYS02270 
SYS02280 
SYS02290 
SYS02300 
SYS02310 
SYS02320 
SYS02330 
SYS02340 
SYS02350 
SYS02360 
SYS02370 
SYS02380 
SYS02390 
SYS02400 
SYS02410 
SYS02420 
SYS02430 
SYS02440 
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ADDR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SfcQNO 









0246 


* PROVIDE 1 


PARAMETERS FOR SYSTEM LOADER 


SYS02460 








0247 


• 








SYS02470 








0248 




ABS 






SYS02480 


0280 






0249 




ORG 




4 


SYS02490 


0004 





OFFA 


0250 




DC 




4095-» WD CNT FOR WRITING CORE ON CIB 


SYS02500 


0005 





0000 


0251 


$CIBA 


DC 




•-« SCTR AODR OF THE CIB 


SYSC2510 


0006 





0000 


0252 


$CH12 


DC 




•-« ADDR OF CHANNEL 12 INDICATOR 


SYS02520 


0007 





0000 


0253 
0254 


SCCMN 

• 


DC 




•-» LENGTH OF COMMON (IN WORDSJ 


SYS02530 
SYS02540 








0255 


* ULTIMATE 


RESIDENCE OF THE INTERRUPT TV 


SYS02550 








0256 


• 








SYS02560 


0008 





0000 


0257 


$LfcV0 


DC 




«-• LEVEL BRANCH ADDRESS 


SYS02570 


0009 


c 


0000 


0258 


SLEV1 


DC 




»-• LEVEL 1 BRANCH ADDRESS 


SYS02580 


OOOA 





00B3 


0259 


$LEV2 


DC 




SI200 LEVEL 2 BRANCH ADDR 


SYS02590 


OOOB 





0000 


0260 


$LEV3 


DC 




*-• LEVEL 3 BRANCH ADDRESS 


SYS02600 


OOOC 





O0C4 


0261 


SLEV4 


DC 




$1400 LEVEL 4 BRANCH AODR 


SYS02610 


0000 





0091 


0262 
0263 
0264 


SLEV5 

• 
• 


DC 




SSTOP LEVEL 5 BRANCH ADDR 


SYS02620 
SYS02630 
SYS02640 


OOOE 





0000 


0265 


SCORE 


DC 




«-* SIZE OF CORE, E.G., 4096=4K 


SYS02650 


OOOF 





0000 


0266 


$CTSW 


DC 




*-• CONTROL RECORD TRAP SWITCH 


SYS02660 


0010 





0000 


0267 


SDADR 


DC 




*-* SCTR ADDR OF PROG TO BE LOADED 


SYS02670 


0011 





5540 


0268 


$0ABL 


DC 




/5540 IOCC FOR SCA RESET <ODD ADDR) 


SYS02680 


0012 





0000 


0269 


$DREQ 


DC 




*-» IND. FOR REQUESTED VERSION DKI/O 


SYS02690 


0013 





0000 


0270 


SIBSY 


DC 




*-» NON-ZERO IF CD/PAP TP DEV. BUSY 


SYSC2700 


0014 




OOOC 


0271 
0272 
0273 


$HASH 

* 
• 


BSS 


E 


12 WORK AREA 


SYS02710 
SYS02720 
SYS02730 


0020 




0008 


0274 
0275 
0276 
0277 


$SCAN 

• 
* 
• 


BSS 




8 1132 SCAN AREA 32 


SYS02740 
SYS02750 
SYS02760 
SYS02770 








0278 


* TRAP FOR 


PREOPERATIVE I/O ERRORS 


SYS02780 








0279 


* 








SYS02790 


0028 





0000 


028C 


SPRET 


DC 




*-» ENTRY POINT 


SYS02800 


0029 





3000 


0281 




WAIT 




WAIT TIL START KEY PUSHED 


SYSQ2810 


002A 


00 


4C800028 


0282 
0283 
0284 


• 
* 


BSC 


I 


SPRET RETURN TO CALLER 


SYS0282C 
SYSC283C 
SYS0284C 


002C 





OOCO 


0285 


$IREU 


DC 




*-• ADDR OF INT REQUEST SUBROUTINE 


SYS0285( 


002D 





0000 


0286 


SULET 


DC 




»-» ADDR OF LET, LOGICAL OR 


SYS0286C 


002E 





0000 


0287 




DC 




*-« ADDR OF LET, LOGICAL DR 1 


SYS0287C 


002F 





0000 


0288 




DC 




*-* ADDR OF LET, LOGICAL DR 2 


SYS02880 


0030 





0000 


0289 




DC 




•-* ADDR OF LET, LOGICAL DR 3 


SYS02890 


0031 





0000 


0290 




DC 




*-• ADDR OF LET, LOGICAL OR 4 


SYS02900 


0032 





0000 


0291 


$IOCT 


DC 




*-* ZERO IF NO I/O IN PROGRESS 50 


SYS02910 


0033 





0000 


0292 


SLAST 


DC 




•-• NGN-ZERO WHEN LAST CARD SENSED 


SYS02920 


0034 





0000 


0293 


SNDUP 


DC 




»-• DO NOT DUP IF NON-ZERO 


SYS02930 


0035 





0000 


0294 


$NXEQ 


DC 




»-* DO NOT EXECUTE IF NON-ZERO 


SYS02940 


0036 





0000 


0295 


$PBSY 


DC 




»-• NON-ZERO WHEN PRINTER BUSY 


SYS02950 


0037 





0000 


0296 
0297 


SPGCT 

• 


DC 




«-• PAGE NO. FOR HEADINGS 


SYS02960 
SYS02970 








0298 


* CALL EXIT ENTRY POINT TO SKELETON SUPERVISOR 


SYS02980 








0299 


• 








SYS02990 


0038 





7014 


0300 
0301 


$EXIT 

• 


MDX 




SSOOO BR TO FETCH CIL, PHASE 1 56 


SYS03000 
SYS03010 








0302 


**» CALL LINK 


ENTRY POINT 


SYS03020 








0303 


• 








SYS03030 


0039 





0000 


0304 


SLINK 


DC 




*-• ENTRY POINT 57 


SYS03040 


003A 


c 


1810 


0305 




SRA 




16 


SYS03050 


003B 





7012 


0306 




MDX 




SS100 BR TO FETCH CIL, PHASE 1 


SYS03060 


003C 




0000 


0307 




BSS 


E 





SYS03070 


00 3C 





0001 


0308 


SS900 


DC 




1 DISK PARAMETERS FOR SAVING CORE 


SYS03080 


003D 





0004 


0309 




DC 




SCIBA-1 *IN CONNECTION WITH DUMP 


SYS03090 


C03E 





FFFF 


0310 
0311 


SS910 

• 


DC 




-1 CALL EXIT INDICATOR 


SYS03100 
SYS03110 








0312 


••« SAVE 1ST 


4K OF CORE ON THE CIB 


SYS03120 








0313 


• 








SYS03130 


003F 





0000 


0314 


SDUMP 


DC 




*-• ENTRY POINT 63 


SYS03140 


0040 


00 


74C00032 


0315 




MDX 


L 


SIOCT.O SKIP IF NO INTERRUPT 


SYS03150 


0042 





70FD 


0316 




MDX 




*-3 "PENDING, BR OTHERWISE 


SYS03160 


0043 





0806 


0317 




STD 




SACEX SAVE ACCUMULATOR, EXTENSION 


SYS03170 


0044 





69D2 


0318 




STX 


1 


SCXR1 SAVE XR1 


SYS03180 


0045 


00 


C480003F 


0319 




LD 


I 


SDUMP 


SYS03190 


0047 





0001 


0320 




STO 




SDMPF SAVE DUMP FORMAT CODE 


SYS03200 


0048 





C8F3 


0321 




LDD 




SS90C 


SYS03210 


0049 


00 


440000F2 


0322 




BSI 


L 


DZOOO SAVE WDS 6-4095 ON CIB 


SYS03220 


004B 





COFO 


0323 




LD 




SS900 


SYS03230 


004C 





7001 


0324 
0326 


• 


MDX 




SS100 BR TO FETCH CIL, PHASE 1 


SYS03240 
SYS03260 








0327 


**• FETCH i 


CORE IMAGE LOADER, PHASE 1 


SYS03270 








0328 


• 








SYS03280 


0040 





COFO 


0329 


SSOOO 


LD 




SS910 


SYS03290 


004E 





00C7 


0330 


SS100 


STO 




SRMSW SAVE EXIT-LINK-DUMP SWITCH 


SYSC3300 
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ADDR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



IO/SEQNO 



004F 
0051 
0052 
0053 
0055 
0056 
0057 
0058 

0059 
005B 
005C 
005D 
005F 
0061 
0062 

0063 
0068 



0071 
0072 

0072 

0073 

0074 

0075 

0076 

0077 C 

0078 

0079 
007A 
007B 
007C 
007D 
007E 
007F 

0080 



00 74000032 
70FD 
08BD 
00 65800039 
C101 
18D0 
C100 
08BB 

00 65000000 
COFE 
1890 
00 440000F2 
00 740000EE 
70FD 
4102 



0005 
0009 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



0081 0000 

0082 3000 

0083 00 4C800081 



0085 0000 

0086 3000 

0087 00 4C800085 



0089 0000 
008A 3000 
008B 00 4C800089 



0080 0000 
008E 3000 
008F 00 4C80008D 



0091 0000 

0092 3000 

0093 00 4CC00091 



0095 

0096 

0097 

0098 

0099 



OOCO 
0000 
0000 
0000 
0000 



0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
0381 
0382 
0383 
0384 
0385 
0386 
0387 
0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0396 
0397 
0398 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 



MDX 
MDX 
XIO 
LDX 
LD 
RTE 
LO 
STD 
* $S150+1 
$S150 LDX 
LD 
SRT 
BSI 
MDX 
MDX 
BSI 



BSS 

BSS 
• 
$FLSH DC 

BSS 
$CWCT DC 

DC 
$CCAD DC 
$LSAD DC 
$DZ1N DC 
$DCDE DC 
$PHSfc DC 
$UFIO DC 
$WSDR DC 
$WRD1 DC 
$KCSW DC 
$UFDR DC 
$CPTR DC 
$1132 DC 
$1403 DC 
* TRAP FOR 



L *IOCT,0 
»-3 

$DABL-1 
II $LINK 
1 1 

16 
1 

$LKNM 
CONTAINS ADDR 
LI •-* 
$CILA 
16 
L DZOOO 
L $DBSY,0 
»-3 
1 2 

5 
9 



SKIP IF NO INTERRUPT LEFT 

BR IF INTERRUPTS) PENDING 

TURN OFF THE SCA 

LINK ADDR TO XR1 

FETCH 2N0 WD OF LINK NAME 

FETCH 1ST WD OF LINK NAME 
SAVE TEMPORARILY 
LAST WO OF DISK I/O MINUS 3 
ADDR END OF DKI/O-L TO XR1 



FETCH CI LOADERt PHASE 1 
SKIP IF READ OP DONE 
BR UNTIL READ FINISHED 
BR TO CI LOADERi PHASE 1 

RESERVED FOR THE 2250 
PATCH AREA 



»— » 


»— » 
*— • 

•— » 



FLUSH-TO-NEXT- JOB SWITCH 1=FLUSH 



»-* 

»— * 
•— • 
*— » 
•-» 
»— • 
»— » 
•— • 



$PSTl DC 

WAIT 
BSC 

» TRAP FOR 

$PST2 OC 

WAIT 
BSC 

« TRAP FOR 

» 

$PST3 DC 

WAIT 
BSC 

* TRAP FOR 

JPST4 DC 

WAIT 
BSC 



WORD COUNT AND SECTOR ADDRESS 
•FOR SAVING/RESTORING COMMON 
ADDR FOR SAVING/RESTORING COMMON 
SCTR ADDR OF 1ST LOCAL/SOCAL 
DISKZ/1/N INDICATOR (-1,0, +1) 
LOGICAL DRIVE CODE FOR PROGRAM 
NO. OF PHASE NOW IN CORE 
UNFORMATTED I/O RECORD NO. 
WORKING STORAGE DRIVE CODE 
LOADING ADDR OF THE CORE LOAD 
1 IF KB,CP BOTH UTILIZED 
UNFORMATTED I/O DRIVE CODE 
CHANNEL 12 INDICATOR FOR CP 
«-* CHANNEL 12 INDICATOR FOR 1132 
»-* CHANNEL 12 INDICATOR FOR 1403 
POSTOPERATIVE I/O ERRORS ON LEVEL 1 

*-» ENTRY POINT 
I $PST1 RETURN TO DEVICE SUBROUTINE 
POSTOPERATIVE I/O ERRORS ON LEVEL 2 

*-* ENTRY POINT 
I $PST2 RETURN TO DEVICE SUBROUTINE 
POSTOPERATIVE I/O ERRORS ON LEVEL 3 

»-» ENTRY POINT 
I $PST3 RETURN TO DEVICE SUBROUTINE 
POSTOPERATIVE I/O ERRORS ON LEVEL 4 

»-» ENTRY POINT 
I $PST4 RETURN TO DEVICE SUBROUTINE 



» PROGRAM STOP KEY TRAP 



$STOP DC 

WAIT 
BOSC I 



$STOP 



ENTRY POINT 

WAIT TIL START KEY PUSHED 

RETURN TO CALLER 



* PARAMETERS USED BY THE DISK I/O SUBROUTINES. THE 

• LOGICAL DRIVE CODE IS FOUND IN BITS 1-3 FOR ALL 
« BUT THE AREA CODE. BIT WILL ALWAYS BE ZERO. 



«** DISK1 AND DISKN WILL NOT WRITE BELOW THE 

»•» FOLLOWING SCTR ADDRESSES (EXCEPT WRITE IMMED). 

• 

$FPAD DC •-» FILE PROTECT ADDR, LOGICAL DR 
DC «-• FILE PROTECT ADDR, LOGICAL OR 1 
DC •-» FILE PROTECT ADDR, LOGICAL DR 2 
DC *-» FILE PROTECT ADDR, LOGICAL DR 3 
DC «-» FILE PROTECT ADDR, LOGICAL DR 4 

• 

*»* THE ARM POSITION IS UPDATED WHENEVER A SEEK 

••• OCCURS. 



SYS03310 
SYS03320 
SYS03330 
SYS03340 
SYS03350 
SYS03360 
SYS03370 
SYS03380 
SYS03390 
SYS03400 
SYS03410 
SYS03420 
SYS03430 
SYS03440 
SYS03450 
SYS03460 
SYS03470 
SYS03480 
SYS03490 
SYS03500 
SYS03510 
SYS03520 
SYS03530 
SYS03540 
SYS03550 
SYS03560 
SYS03570 
SYS03580 
SYS03590 
SYS03600 
SYS03610 
SYS03620 
SYS03630 
SYS03640 
SYS03650 
SYS03660 
SYS03670 
SYS03690 
SYS03700 
SYS03710 
SYS03720 
SYS03730 
SYS03740 
SYS03750 
SYS03760 
SYS03770 
SYS03780 
SYS03790 
SYS03800 
SYS03810 
SYS03820 
SYS03830 
SYS03840 
SYS03850 
SYS03860 
SYS03870 
SYS03880 
SYS03890 
SYS03900 
SYS03910 
SYS03920 
SYS03930 
SYS03940 
SYS03950 
SYS03960 
SYS03970 
SYS03980 
SYS04000 
SYS04010 
SYS04020 
SYS04030 
SYS04040 
SYS04050 
SYS04060 
SYS04070 
SYS04080 
SYS04090 
SYS04100 
SYS04110 
SYS04120 
SYS04130 
SYS04140 
SYS04150 
SYS04160 
SYS04170 
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AOOR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



009A 





OOOO 


009B 





OOCO 


009C 





0000 


009D 





0000 


009E 





0000 



009F 





OOCO 


OOAO 





0000 


00A1 





0000 


00A2 





0000 


00A3 





0000 



00A4 





0000 


00A5 





0000 


00A6 


c 


0000 


00A7 





0000 


0OA8 





0000 


00A9 





0000 


OOAA 





0000 


OOAB 





0000 


OOAC 





0000 


OOAD 





0000 


OOAE 





0000 


OOAF 





0000 


OOBO 





0000 


0081 





0000 


00B2 





0000 



O0B3 
00B4 
00B5 
00B6 
00B7 



0000 
6906 
6A07 
2807 
080A 



00B8 
OOBA 
OOBC 
OOBE 
OOBF 
OOCO 
00C2 
00C2 
00C3 



00 44000000 
00 65000000 
00 66000000 
2000 
C802 
00 4CC000B3 

0000 
OOCO 
0000 



00C4 
00C5 
00C6 
00C7 
00C8 
00C9 
OOCA 



0000 

D818 

280E 

690F 

6A10 

0816 

1002 

OOCB 00 4C1000D0 
OOCO 00 4480002C 



0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 



$CYLN 



• •<■ 

• •• 
**• 



BELOW ARE THE 
INDICATES THE 
ON THE SYSTEM 



ARM POSITION FOR LOGICAL DRIVE 
ARM POSITION FOR LOGICAL DRIVE 
ARM POSITION FOR LOGICAL DRIVE 
ARM POSITION FOR LOGICAL DRIVE 
ARM POSITION FOR LOGICAL DRIVE 

DISK AREA CODES. A ZERO 
CORRESPONDING DRIVE IS NOT 



$ACDE 



•— • 
•— * 
«— * 

*-» 



AREA 
AREA 
AREA 
AREA 
AREA 



CODE 
CODE 
CODE 
CODE 
CODE 



FOR LOGICAL 
FOR LOGICAL 
FOR LOGICAL 
FOR LOGICAL 
FOR LOGICAL 



DRIVE 
DRIVE 
DRIVE 
DRIVE 
DRIVE 



«*• THE ADR OF THE CYLINDER IN WHICH A DEFECT OC- 
«•« CURSt IF ANY, IS STORED IN THE 1ST, 2ND, OR 3RD 
• «» WORD BELOW, DEPENDING ON WHETHER IT IS THE 1ST, 
••» 2ND, OR 3RD DEFECT ON THE CARTRIDGE. 



$DCYL DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



•— » 
»— » 
»-• 



»— » 
•— • 
»— • 
•— • 
•— » 
•— » 
»-• 



DEFECTIVE CYLINDER ADDRE 
♦FOR LOGICAL DRIVE 



SSES 



DEFECTIVE CYLINDER ADDRESSES 
•FOR LOGICAL DRIVE 1 



DEFECTIVE CYLINDER ADDRESSES 
•FOR LOGICAL DRIVE 2 



DEFECTIVE CYLINDER ADDRE 
•FOR LOGICAL DRIVE 3 



SSES 



DEFECTIVE CYLINDER ADDRESSES 
•FOR LOGICAL DRIVE 4 



ILS02 — THIS SUBROUTINE SAVES XR1, XR2, STATUS, 
AND THE ACCUMULATOR AND ITS EXTENSION. 
THE ADDRESS OF THE INTERRUPT SERVICE ROU- 
TINE IS STORED IN $1205 BY PHASE 2 OF 
THE CORE IMAGE LOADER. WORD 10 ALWAYS 
CONTAINS THE ADDRESS OF $1200. 



$1200 DC •-• ENTRY PT (LEVEL 2 INTRUPT) 

STX 1 $1210+1 SAVE XR1 

STX 2 $1210+3 SAVE XR2 

STS $1210+4 STORE STATUS 

STD $1290 SAVE ACCUMULATOR, EXTENSION 

• $1205+1 CONTAINS ADDR INTERRUPT ENTRY PT TO DKI/O 



$1205 BSI 
$1210 LDX 
LDX 
LDS 
LDD 
BOSC 
$1290 BSS 
DC 
DC 



L 

LI 

L2 



•— • 

•-• 

•— • 



$1290 

$1200 





BR TO SERVICE THE INTERRUPT 

RESTORE XR1 

RESTORE XR2 

RESTORE STATUS 

RESTORE ACCUMULATOR, EXT 

RETURN FROM INTERRUPT 

CONTENTS OF ACCUMULATOR AND 
•EXTENTION 



ILS04 — THIS SUBROUTINE SAVES XR1, XR2, STATUS, 
AND THE ACCUMULATOR AND ITS EXTENSION. 
IF THE INTERRUPT IS FOR A KEYBOARD REQ- 
UEST, AND IF A MONITOR PROGRAM IS IN CON- 
TROL, CONTROL IS PASSED TO DUMP. OTHER- 
WISE, CONTROL IS PASSED TO THE KEYBOARD/ 
CONSOLE PRINTER SUBROUTINE. WORD 12 AL- 
WAYS CONTAINS THE ADDRESS OF $1400. 

THE TABLE BELOW CONTAINS THE ADDRESSES OF THE 
INTERRUPT SERVICE ROUTINES FOR ALL THE DEVICES 
ON LEVEL 4. 



$1400 



DC 


»— * 


STD 


$1490 


STS 


$1410 


STX 


1 $1410+2 


STX 


2 $1410+4 


XIO 


$1492 


SLA 


2 


BSC 


L $1403,- 


BSI 


I $IREQ 



ENTRY POINT 

SAVE ACCUMULATOR, EXTENSION 

SAVE STATUS 

SAVE XR1 

SAVE XR2 

SENSE DSW 

IS THIS INTERRUPT REQUEST 

BR IF NOT INTERRUPT REQUEST 

BR IF INTERRUPT REQUEST 



SYS04180 
SYS04190 
SYS04200 
SYS04210 
SYS04220 
SYS04230 
SYS04240 
SYS04250 
SYS04260 
SYS04270 
SYSC4280 
SYS04290 
SYS04300 
SYS04310 
SYS04320 
SYS04330 
SYS04340 
SYS04350 
SYS04360 
SYS04370 
SYS04380 
SYS04390 
SYS04400 
SYS04410 
SYS04420 
SYS04430 
SYS04440 
SYS04450 
SYS04460 
SYS04470 
SYS04480 
SYS04490 
SYS04500 
SYS04510 
SYS04520 
SYS04530 
SYS04550 
SYS04560 
SYS04570 
SYS04580 
SYS04590 
SYS04600 
SYS04610 
SYS04620 
SYS04630 
SYS04640 
SYS04650 
SYS04660 
SYS04670 
SYS04680 
SYS04690 
SYS04700 
SYS04710 
SYS04720 
SYS04730 
SYS04740 
SYS04750 
SYS04760 
SYS04770 
SYS04780 
SYS04790 
SYS04810 
SYS04820 
SYS04830 
SYS04840 
SYS04850 
SYS04860 
SYS04870 
SYS04880 
SYS04890 
SYS04900 
SYS04910 
SYS04920 
SYS04930 
SYS04940 
SYS04950 
SYS04960 
SYS04970 
SYS04980 
SYS04990 
SYS05000 
SYS05010 
SYS05020 
SYS05030 
SYS05040 
SYS05050 
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AOOR REL OBJECT ST. NO. 



LABEL OPCO FT OPERANDS 



ID/SEQNO 



COCF 





FFFE 


0506 


DC 


-2 ERROR CODE 


SYS05060 


OODO 





61C9 


0507 


$1403 LDX 


1 9 NO. DEVICES ON LEVEL TO XR1 


SYS05070 


OOD1 





0810 


0508 


XIO 


$1494 SENSE ILSW 


SYS05080 


00D2 





1140 


0509 


SLCA 


1 FIND CAUSE OF INTERRUPT 


SYS05090 








0510 


» $1405+1 CONTAINS AODR OF LEVEL 4 IBT MINUS 1 


SYS05100 


00D3 


00 


45800000 


0511 


$1405 BSI 


11 *-* BR TO SERVICE THE INTERRUPT 


SYS05110 


0005 


c 


2000 


0512 


$1410 LDS 


RESTORE STATUS 


SYS05120 


00D6 


00 


65000000 


0513 


LDX 


LI «-» RESTORE XR1 


SYS05130 


0CD8 


00 


66C00000 


0514 


LDX 


L2 *-« RESTORE XR2 


SYS05140 


OODA 





C803 


0515 


LDD 


$1490 RESTORE ACCUMULATOR, EXT. 


SYS05150 


OOOB 


00 


4CC000C4 


0516 
0517 


BOSC 

» 


I $1400 RETURN 


SYSC5160 
SYS05170 








0518 


» CONSTANTS AND WORK AREAS 


SYS05180 








0519 


# EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES 


SYS05190 








0520 


» 




SYS05200 


OOOD 


c 


0000 


0521 


$DDSW DC 


«-« DSW FOR THE DISK 


SYS05210 


CODE 




0002 


0522 


$1490 BSS 


E 2 CONTENTS OF ACCUMULATOR, EXT. 


SYS05220 


OOEO 





0000 


0523 


$1492 DC 


«— * 


SYS05230 


OOEO 


c 




0524 


$SYSC EQU 


*-l VERSION AND MOD NO. 


SYS05240 


00E1 





OFOO 


0525 


DC 


/OFOO IOCC FOR SENSE IOCC FOR KB/CP 


SYS05250 


00E2 




0001 


0526 


$1494 BSS 


1 PATCH AREA 


SYS05260 


00E3 


c 


0300 


0527 


DC 


/0300 IOCC FOR SENSING ILSW04 


SYS05270 


00E4 




OOOA 


0529 


BSS 


10 PATCH AREA 


SYS05290 


OCEE 





0000 


0530 


$DBSY DC 


*-• NON-ZERO WHEN DISK I/O BUSY 


SYS05300 



DISKZ 



ADOR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 
0549 
0550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 
0575 



•*«»»**«»»»**«•****»******»**»********************» 

* • 
♦PROGRAM NAME- * 

* *FULL NAME-FORTRAN/SYSTEM DISK I/O SUBROUTINE * 

* 'CALLING SEQUENCE- • 

* LDD PARAM * 

* BSI L DISKZ » 

* WHERE PARAM IS THE LABEL OF A DOUBLE-WORD * 

* CELL CONTAINING THE FUNCTION CODE AND THE » 

* ADDR OF THE I/O BUFFER, I.E., ADDR OF WD CNT. * 

* SEE 'CAPABILITIES' FOR DISCUSSION OF PARAM- * 

* ETERS. » 
» 

•PURPOSE- * 

* TO PROVIDE A SUBROUTINE TO PERFORM DISK OPERA-* 
« TIONS. THIS SUBROUTINE IS INTENDED FOR USE BY * 
» MONITOR PROGRAMS AND USER PROGRAMS WRITTEN IN « 
» FORTRAN. THUS, IT IS INTENDED FOR USE IN AN » 

* ERROR-FREE ENVIRONMENT. • 

* • 
•METHOD- • 
» DISKZ REQUIRES A BUFFER, THE LENGTH OF WHICH IS* 

* 2 GREATER THAN THE NO. WORDS TO BE READ/WRIT- * 

* TEN. • 
» * 
•CAPABILITIES AND LIMITATIONS- • 

* THE WD CNT, AS WELL AS DZOOCMUST BE ON AN EVEN* 

* BOUNDARY,MUST BE IN THE RANGE 0-32767. THE * 

* DRIVE CODE MUST BE IN BITS 1-3 OF THE SECTOR * 

* ADDR, WHICH FOLLOWS THE WO CNT. THE FUNCTION * 
« INDICATOR MUST BE XXOO FOR A READ OR XXC1 FOR * 

* A WRITE, WHERE 'XX' MEANS ANY 2 HEXAOECIMAL * 

* CHARACTERS. A WD CNT OF ZERO INDICATES A SEEK.* 

* (READ OR WRITE MAY BE INDICATED.) AUTOMATIC * 

* SEEKING IS PROVIDED AS A PART OF READ/WRITE. * 

* A WRITE IS ALWAYS WITH A READ-BACK-CHECK. * 

* DISKZ MAKES NO PREOPERATIVE PARAMETER CHECKS. * 

* • 
•SPECIAL FEATURES- * 

* DISKZ PROVIDES ONLY THOSE FUNCTIONS MENTIONED * 

* ABOVE. DISK1 AND DISKN OFFER THIS BASIC SET OF* 
» FUNCTIONS PLUS OTHERS. * 

* * 
••••••••••••••••••••••••••a************************ 



SYS05320 
SYS05330 
SYS05340 
SYS05350 
SYS05360 
SYS05370 
SYS05380 
SYS05390 
SYS05400 
SYS05410 
SYS05420 
SYS05430 
SYS05440 
SYS05450 
SYS05460 
SYS05470 
SYS05480 
SYS05490 
SYS05500 
SYS05510 
SYS05520 
SYS05530 
SYS05540 
SYSC5550 
SYS05560 
SYS05570 
SYS05580 
SYS05590 
SYS05600 
SYS05610 
SYS05620 
SYS0563C 
SYS05640 
SYS05650 
SYS05660 
SYS05670 
SYS05680 
SYS05690 
SYS05700 
SYS05710 
SYS05720 
SYS05730 
SYS05740 
SYS05750 



OOFO 




ooco 


OOFO 





OOEF 


00F1 





FF6A 


0OF2 





00E8 


00F3 





00C1 


00F4 







0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 



* PROVIDE PARAMETERS FOR SYSTEM LOADER 



BSS E 

DC $ZEND-* DISKZ WORD COUNT 

DC -'DZID PHASE ID 

DC $ZEND-6-*+l ADDR OF SLET EXTRACT 

DC 1 NO. ENTRIES IN SLET EXTRACT SYS05830 

ORG *-2 SYS05840 



SYS05770 
SYS05780 
SYS05790 
SYS05800 
SYS05810 
SYS05820 
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ADDR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



OOF2 





0000 


0586 


DZOOO 


DC 




•— • 


ENTRY POINT 


SYS05860 


OOF3 


00 


740000EE 


0587 




MDX 


L 


$DBSY,0 


LOOP UNTIL OPERATION IN 


SYS05870 


00F5 





70FD 


0588 




MDX 




»-3 


•PROGRESS IS COMPLETE 


SYS05880 


00F6 





7002 


0589 
0590 


• 


MDX 




DZ020 


BR AROUND INT ENTRY POINT 


SYS05890 
SYS05900 








0591 


• INTERRUPT ENTRY POINT 




SYS05910 








0592 


* 










SYS05920 


O0F7 





0000 


0593 


DZ010 


DC 




•— • 


INTERRUPT ADDRESS 


SYS05930 


00F8 





7015 


0594 




MDX 




DZ180 


BR TO SERVICE INTERRUPT 


SYS05940 


00F9 





690F 


0595 


DZ020 


STX 


1 


DZ100+1 


SAVE XR1 


SYS05950 


OOFA 





6A10 


0596 




SIX 


2 


DZ100+3 


SAVE XR2 


SYS05960 


OOFB 





1008 


0597 




SLA 




8 


SHIFT INDICATOR 8 BITS 


SYS05970 


OOFC 





003C 


0598 




STO 




DZ945 


SAVE FUNCTION INDICATOR 


SYS05980 


OOFO 





1800 


0599 




RTE 




16 




SYS05990 


OOFE 





D05B 


0600 




STO 




DZ235+1 


SAVE ADDR OF THE I/O AREA 


SYS06000 


OOFF 





6211 


0601 


DZ030 


LDX 


2 


•TCNT 


TURN BUSY INDICATOR ON AND 


SYS06010 


OlOO 





6AED 


0602 




STX 


2 


SOBSY 


•SET RETRY COUNT 


SYS06020 


0101 





COFO 


0603 




LD 




DZOOO 




SYS06030 


0102 





D0F4 


0604 




STO 




DZ010 




SYS06040 


0103 





7053 


0605 




MDX 




DZ230 


BR TO CONTINUE 


SYS06050 


0104 


00 


4C000000 


0606 
0607 


DZ060 

• 


BSC 


L 


•— • 


BR TO SERVICE THE INTERRUPT 


SYS06060 
SYS060T0 








0608 


* START ALL DISK OPERATIONS 


SYS06080 








0609 


* 










SYS06090 


0106 





6908 


0610 


DZ070 


STX 


1 


DZ180-H 


SAVE ADDR OF THE I/O AREA 


SYS06100 


0107 


c 


081E 


0611 
0612 


* 


XIO 




DZ904 


START AN OPERATION 


SYS06110 
SYS06120 








0613 


* RETURN TO USER 




SYS06130 








0614 


• 










SYS06140 


0108 


00 


65000000 


0615 


DZ100 


LOX 


LI 


•— • 


RESTORE XR1 


SYS06150 


010A 


00 


66000000 


0616 




LDX 


L2 


•— • 


RESTORE XR2 


SYS06160 


010C 


GO 


4C8000F7 


0617 
0618 


• 


BSC 


I 


DZ010 


RETURN 


SYS06170 
SYS06180 








0619 


« SERVICE ALL 


INTERRUPTS 


SYS06190 








0620 


• 










SYS06200 


010E 


00 


65000000 


0621 


0Z180 


LOX 


LI 


•— • 


ADDR OF I/O AREA TO XR1 


SYS06210 


0110 


00 


660000F2 


0622 




LOX 


L2 


DZOOO 


ADDR OF DZOOO TO XR2 


SYS06220 


0112 





0819 


0623 




XIO 




DZ910 


SENSE THE DSW 


SYS06230 


0113 





D0C9 


0624 




STO 




$DDSW 


SAVE THE DSW 


SYS06240 


0114 





4850 


0625 




BOSC 




- 


SKIP IF ERROR BIT SET 


SYS06250 


0115 





70EE 


0626 




MOX 




DZ060 


BRANCH IF ERROR BIT NOT SET 


SYS06260 


0116 





C80D 


0627 


DZ185 


LDD 




DZ902 


RESTORE WORD COUNT 


SYS06270 


0117 





D900 


0628 




STD 


1 





•AND SECTOR ADDRESS 


SYS06280 


0118 


00 


74FF00EE 


0629 




MDX 


L 


$DBSY,-l 


SKIP IF 16 RETRIES DONE 


SYS06290 


011A 





703E 


0630 
0631 


• 


MDX 




DZ235 


BRANCH IF LESS THAN 16 


SYS06300 
SYS06310 








0632 


* TRAP OUT 


TO 


POSTOPERATIVE TRAP 


SYS06320 








0633 


• 










SYS06330 


011B 





C812 


0634 




LDD 




DZ912 


1+SCTR ADDR TO EXTENSION 


SYS06340 


one 





C014 


0635 




LD 




DZ915 




SYS06350 


0110 





4293 


0636 


DZ190 


BSI 


2 


$PST2-X2 


BR TO POSTOPERATIVE ER TRAP 


SYS06360 


011E 





1810 


0637 




SRA 




16 


CLEAR 


SYS06370 


011F 


00 


04800198 


0638 




STO 


I 


DZ350+1 


•ARM POSITION 


SYS06380 


0121 





70DD 


0639 
0640 


• 


MOX 




DZ030 


RETRY OPERATION 


SYS06390 
SYS06400 








0641 


* CONSTANT* 


I AND WORK AREAS 


SYS06410 








0642 


• 










SYS06420 


0122 




0000 


0643 




BSS 


E 







SYS06430 








0644 


• EVEN-NUHBEREO LABELS > 


IRE ON EVEN BOUNDARIES 


SYS06440 


0122 





0001 


0645 


DZ900 


DC 




1 CONSTANT, READ-AFTER-SEEK WD CNT 


SYS06450 


0123 





0000 


0646 


DZ901 


DC 




CURRENT ARM POSITION 


SYS06460 


0124 





0000 


0647 


DZ902 


DC 




»-* LAST 


TWO WORDS OF SECTOR 


SYS06470 


0125 





0000 


0648 




DC 




•-• •PREVIOUSLY READ 


SYS06480 


0126 





0000 


0649 


DZ904 


DC 




•-» IOCC 


FOR OPERATION CURRENTLY 


SYS06490 


0127 





0000 


0650 


DZ905 


DC 




»-• "BEING PERFORMED 


SYS06500 


0128 





0000 


0651 


0Z906 


DC 




•-« SAVE 


AREA FOR IOCC FOR 


SYS06510 


0129 





0000 


0652 


DZ907 


DC 




•-• »USER-REOUESTEO OPERATION 


SYS06520 


012A 





0122 


0653 


DZ908 


DC 




DZ900 IOCC FOR READ 


SYS06530 


012B 





0000 


0654 


0Z909 


DC 




•-• »AFTER SEEK 


SYS06540 


012C 





0000 


0655 


DZ910 


DC 




*-« 2ND WORD OF SEEK IOCC 


SYS06550 


0120 





0000 


0656 


DZ911 


DC 




*-• SENSE IOCC 


SYS06560 


012E 





0000 


0657 


0Z912 


DC 




•-• INTERMEDIATE WORD COUNT 


SYS06570 


012F 





0000 


0658 


DZ913 


DC 




•-• ADDR 


OF NEXT SEQUENTIAL SECTOR 


SYSC6580 


0130 





5002 


0659 


DZ914 


DC 




/5002 WRITE SELECT/POWER UNSAFE INDR 


SYS06590 


0131 





5004 


0660 


DZ915 


DC 




/5004 READ/WRITE/SEEK ERROR INDICATOR 


SYS06600 


0132 





FECO 


0661 


DZ916 


DC 




-320 TO BE USED TO SIMULTANEOUSLY 


SYS06610 


0133 





0001 


0662 




DC 




1 «DECR WD CNT, INCR SCTR ADDR 


SYS06620 


0134 





0080 


0663 


DZ920 


DC 




/0080 READ CHECK BIT FOR IOCC 


SYS06630 


0135 





0600 


0664 


DZ925 


DC 




/0600 2ND 


WD OF READ IOCC W/0 AREA CD 


SYS06640 


0136 





0008 


0665 


DZ930 


DC 




8 NO. SECTORS PER CYLINDER 


SYS06650 


0137 





5000 


0666 


DZ935 


DC 




/5000 NOT 


READY DISPLAY CODE 


SYS06660 


0138 





0FF8 


0667 


DZ940 


DC 




/0FF8 'AND* OUT DR CODE, SCTR ADDR 


SYS06670 


0139 





0000 


0668 


DZ945 


DC 




•-• FUNC 


INDICATOR (0=READ,1=WRITE> 


SYS06680 


013A 





0701 


0669 


DZ950 


DC 




/0701 SENSE IOCC W/0 AREA CODE 


SYS06690 


013B 





0007 


0670 


OZ955 


DC 




/0007 »AND' OUT ALL BUT SCTR NO. 


SYS06700 


013C 





OOOA 


0671 


DZ960 


OC 




$DCYL-$CYLN BASE DEFECTIVE CYL ADOR 


SYS06710 
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ADOR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



013D 





009F 


013E 





FFFB 


013F 





0000 


0140 





0400 


0141 





0141 


0142 





0000 


0143 





FFFF 



0144 
00F2 



0002 



0146 1810 

0147 C D0A6 

0148 00 74FF0032 
014A 1000 
014B 70BC 



014C 
014D 



C0E3 
70CF 



014E C0E8 
014F 00 44000028 
0151 703A 



0152 

0153 

0154 

0155 

0156 C 



0157 
0159 
015B 
015C 
0150 
015E 
015F 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
016A 
016B 
016C 
016D 
016E 
0170 
0171 
0172 
0173 
0174 
0176 
0177 



0178 
017A 
017B 
017C 
017D 
017F 
0180 
0181 
0182 
0183 
0184 
0185 



C0D9 
18D0 
C101 
1803 
7040 



00 74010032 
00 65000000 
C900 

D8C7 

D8D0 

1810 

1084 

DOOE 

80DB 

D01B 

80DA 

0033 

80D6 

8008 

8007 

D006 

62FD 

69BD 

C101 

EOCB 

0101 
00 94000000 
4828 
7006 
C101 
80C2 
00 7401016F 
7201 
70F5 



00 660000F2 
C230 
E249 
D250 
00 C4000000 
EA4E 

D23A 

EA43 

0239 

EA50 

9247 

0237 



0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
0680 
0681 
0682 
0683 
0684 
0685 
0686 
0687 
0688 
0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0698 
0699 
0700 
0701 
0702 
0703 
0704 
0705 
0706 
0707 
0708 
0709 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0718 
0719 
0720 
0721 
0722 
0723 
0724 
0725 
0726 
0727 
0728 
0729 
0730 
0731 
0732 
0733 
0734 
0735 
0736 
0737 
0738 
0739 
0740 
0741 
0742 
0743 
0744 
0745 
0746 
0747 
0748 
0749 
0750 
0751 
0752 
0753 
0754 
0755 
0756 
0757 



DZ965 DC *ACDE BASE AREA CODE ADDR 

DZ970 DC $CYLN-$ACDE BASE ARM POSITION ADDR 

DZ975 DC •-• 2ND WORD OF READ CHECK IOCC 

DZ980 OC /0400 2ND WD OF SEEK IOCC W/0 AREA CD 

DZ985 DC 321 NO. WORDS PER SECTOR (W/ ADOR) 

DZ990 DC »-* CURRENT SECTOR NO. 

DZ995 DC -1 MASK FOR COMPLEMENTING 

• 

• RESERVED FOR SAVING CORE ON A DUMP ENTRY TO SKEL 



BSS 
EQU 



2 THIS AREA MUST BE AT $CIBA+3l9 
DZOOO 



DZ210 SRA 16 

STO $DBSY CLEAR BUSY INDICATOR 

MDX L $IOCTt-l DECREMENT IOCS COUNTER 

NOP 

MDX DZ100 TO EXIT 
• 

* PREPARE TO TRAP OUT ON 'POWER UNSAFE* CONDITION 



DZ215 LD 

MDX 



DZ914 
DZ190 



BR TO TPAP OUT 
* 
• PREPARE TO TRAP OUT ON 'NOT READY" CONDITION 

DZ220 LD DZ935 FETCH ERROR CODE 

BSI L $PRET BR TO PREOPERATIVE ERR TRAP 
MDX DZ340 RETRY THE OPERATION 



DZ225 LD 
RTE 
LD 
SRA 
MDX 



DZ230 MDX 
DZ235 LDX 
LDD 
STD 
STD 
DZ240 SRA 
SLT 
STO 
A 

STO 
A 

STO 
A 
A 
A 

STO 
LDX 
STX 
LD 
AND 
DZ250 STO 
DZ280 S 

BSC 

MDX 

LO 

A 

MDX 

MDX 

MDX 



DZ910 
16 
1 1 
3 
DZ380 



L $I0CT,1 
LI •-« 

1 
DZ902 
DZ912 
16 

4 

DZ280+1 

DZ965 

0Z330+1 

DZ970 

DZ350+1 

DZ960 

DZ280+1 

0Z280+1 

DZ280+1 

2 -3 

I DZ906 
1 1 

DZ940 
1 1 
L •-• 

Z* 

DZ300 

1 1 
DZ930 

L DZ280+1.1 

2 1 
0Z250 



FETCH 1ST WD SEEK IOCC 
FETCH DESIRED CYLINDER ADDR 
BR TO PERFORM THE SEEK 



INCREMENT IOCS COUNTER 
ADDR I/O AREA TO XR1 



SAVE WORD COUNT, SCTR ADDR 



DRIVE CODE IN BITS 12-15 

COMPUTE AND STORE THE 
•ADDR OF THE AREA CODE 
COMPUTE AND STORE THE 
♦ADDR OF THE ARM POSITION 
ADO IN BASE DT ADDR 
ADD IN THE DRIVE 
•CODE TWICE MORE 

INITIALIZE COUNTER FOR LOOP 

FETCH DESIRED SECTOR ADDR 

•AND 1 OUT SECTOR NO. 

•AND DRIVE CODE 

SUB DEFECTIVE CYLINDER ADDR 

SKIP IF BAD CYLINDER 

BR TO CONTINUE PROCESSING 

INCREMENT SCTR ADDR BY 8 
POINT TO NEXT DEFECTIVE CYL 
SKIP AFTER 3RD PASS 
COMPARE W/ NEXT DEF CYL A. 



SYS06720 
SYS06730 
SYS06740 
SYS06750 
SYS06760 
SYS06770 
SYS06780 
SYS06790 
SYS06800 
SYS06810 
SYS06820 
SYS06830 
SYS06840 
SYS06850 
SYS06860 
SYS06870 
SYS06880 
SYS06890 
SYS06900 
SYS06910 
SYS06920 
SYS06930 
SYS06940 
SYS06950 
SYS06960 
SYS06970 
SYS06980 
SYS06990 
SYS07000 
SYS07010 
SYS07020 
SYS07030 
SYS07040 
SYS07050 
SYS07060 
SYS07070 
SYS07080 
SYS07090 
SYS07100 
SYS07110 
SYS07120 
SYS07130 
SYS07140 
SYS07150 
SYS07160 
SYS07170 
SYS07180 
SYS07190 
SYS07200 
SYS07210 
SYS07220 
SYS07230 
SYS07240 
SYS07250 
SYS07260 
SYS07270 
SYS07280 
SYS07290 
SYS07300 
SYS07310 
SYS07320 
SYS07330 
SYS07340 
SYS07350 
SYS07360 
SYS07370 
SYS07380 
SYS07390 
'S07400 
'S07410 



• CONSTRUCT THE 2ND WORD OF ALL IOCC'S 

• 

DZ300 LDX L2 DZOOO ADDR OF DZOOO TO XR2 

LD 2 DZ913-X2 FETCH SECTOR ADDRESS 

AND 2 DZ955-X2 »AND» OUT ALL BUT SECTOR NO 

STO 2 DZ990-X2 SAVE SECTOR NO. 

DZ330 LD L *-• FETCH AREA CODE 

OR 2 DZ980-X2 'OR' IN SEEK FUNCTION CODE 

STO 2 DZ910-X2 SEEK IOCC MINUS DIRECTION 

OR 2 DZ925-X2 »0R« IN READ FUNCTION CODE 

STO 2 DZ909-X2 IOCC FOR READ-AFTER-SEEK 

OR 2 DZ990-X2 'OR* IN SECTOR NO. 

S 2 DZ945-X2 COMPLETE READ/WRITE CODE 

STO 2 DZ907-X2 2ND WD OF READ/WRITE IOCC 
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AOOR REL OBJECT ST. NO. 



LABEL QPCD FT OPERANDS 



IO/SEQNO 



0186 

0187 

0188 

0189 C 
018A 
018B 
018C 
018D 
J18E 
018F 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 00 
0199 
019A 



EA42 

8247 

D24D 

EA48 

D23B 

CA3C 

0A3A 

D2EB 

4828 

70BC 

1002 

4828 

70BB 

1008 

4828 

70BC 

C101 

94000000 

4818 

7014 



019B 





1893 


019C 





180F 


019D 





1002 


019E 





EA3A 


019F 





1800 


01A0 





4810 


01A1 





7002 


01A2 


c 


F251 


01A3 





8230 


01A4 





DA 34 


01A5 





4213 


01A6 





CA38 


01A7 





DA 34 


01A8 





4213 



01A9 C231 
01AA 00 D4800198 
01AC C 9101 
01AD 00 4C200116 



01AF 





CA3C 


01B0 





4808 


01B1 





7094 


01B2 





8A40 


01B3 





DA3C 


01B4 





4830 


01B5 





1810 


01B6 





824F 


01B7 





D100 


01B8 





CA36 


01B9 





DA34 


01BA 





C101 


01B8 





EA50 


01BC 





D101 


01BD 





4213 



01BE 
01BF 
01C0 
01C1 
01C2 
01C3 
01C4 
01C5 
01C6 
01C7 
01C8 
01CA 
01CB 
01CC 
01CD 
01CE 



C24D 

D235 

C247 

4820 

4213 

CA32 

D900 

C23C 

4808 

70E9 
00 75000140 
C900 
DA32 
CA3C 
D900 
708F 



0758 
0759 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
0780 
0781 
0782 
0783 
0784 
0785 
0786 
0787 
0788 
0789 
0790 
0791 
0792 
0793 
0794 
0795 
0796 
0797 
0798 
0799 
0800 
0801 
0802 
0803 
0804 
0805 
0806 
0807 
0808 
0809 
0810 
0811 
0812 
0813 
0814 
0815 
0816 
0817 
0818 
0819 
0820 
0821 
0822 
0823 
0824 
0825 
0826 
0827 
0828 
0829 
0830 
0831 
0832 
0833 
0834 
0835 
0836 
0837 
0838 
0839 
0840 
0841 
0842 



CR 
A 

STO 
OR 
STO 
LDD 
DZ340 XIO 
STO 
BSC 
HDX 
SLA 
BSC 
MOX 
SLA 
BSC 
MDX 
LD 
S 

BSC 
MDX 



DZ920-X2 

0/945-X2 

DZ975-X2 

DZ950-X2 

DZ911-X2 

DZ912-X2 

0Z910-X2 

$DDSW-X2 

Z+ 

DZ215 

2 

Z + 

DZ220 

11 

Z + 

0Z225 

1 



DZ350 



L •-• 



+- 
DZ400 



•OR' IN READ CHECK BIT 

2ND WD OF READ CHECK IOCC 
•OR' IN SENSE IOCC BITS 
COMPLETED SENSE IOCC 
1+SCTR ADDR TO EXTENSION 
SENSE FOR DISK READY 
SAVE THE DSW 

SKIP UNLESS POWER UNSAFE OR 
•WRITE SELECT, BR OTHERWISE 
BR TO PREOPERATIVE ERR TRAP 
•IF DISK NOT READY, SKIP 
•OTHERWISE 



FETCH DESIRED CYLINDER ADDR 
SUBTRACT ARM POSITION 
SKIP IF SEEK NECESSARY 
BRANCH TO PERFORM OPERATION 



• SEEK 

• 

SRT 

SRA 

SLA 

OR 

RTE 

BSC 

mdx 

EOR 
A 
DZ380 STD 
BSI 



19 

15 

2 

DZ910-X2 

16 

DZ380 

DZ995-X2 

DZ900-X2 

DZ904-X2 

DZ070-1-X2 



PUT NO. CYLINDERS IN EXT 
+ OR - SIGN TO BIT 15 
SHIFT SIGN TO BIT 13 
OR IN REMAINDER OF IOCC 

SKIP IF SEEK TOWARD HOME 
BRANCH IF SEEK TOWARD CENTR 
COMPLEMENT NO. CYLS TO BE 
•SOUGHT TO GET POSITIVE NO. 

START SEEK 



• SEEK COMPLETE INTERRUPT PROCESSING 

LDD 2 DZ908-X2 SET UP IOCC FOR 

STD 2 DZ904-X2 »READ AFTER SEEK 

BSI 2 DZ070-1-X2 START READ-AFTER-SEEK 

* 

• READ-AFTER-SEEK COMPLETE INTERRUPT PROCESSING 

* 

LD 2 0Z901-X2 FETCH ADR OF SCTR JUST READ 

STO I DZ350+1 UPDATE ARM POSITION 

S 11 SUB DESIRED SCTR ADDR 

BSC L DZ185,Z BR IF SEEK UNSUCCESSFUL 



• READ/WRITE 

* 

DZ400 LDD 

BSC 
DZ410 MDX 

AD 

STD 

BSC 

SRA 

A 

STO 

LDD 

STD 

LD 

OR 

STO 

BSI 



2 DZ912-X2 



DZ210 

DZ916 

DZ912 

Z- 

16 

DZ985 



DZ906 

DZ904 

1 

DZ990 

1 

DZ070 



•X2 
•X2 



-X2 



-X2 
■X2 



X2 



FETCH INTERMEDIATE WD CNT 
SKIP, WD CNT NOT EXHAUSTED 
BRANCH IF READ/WRITE DONE 
DECREMENT WORD COUNT AND 
•INCREMENT SECTOR ADDRESS 
SKIP IF THIS IS LAST SECTOR 
CLEAR ACCUMULATOR 
ADD BACK 321 TO WO CNT 
STORE RESULT IN I/O AREA 
RESTORE IOCC FOR ORIGINALLY 
•REQUESTED OPERATION 
ADD SECTOR NO. TO SECTOR 
•ADDRESS 



-1-X2 START READ/WRITE OPERATION 



• READ/WRITE COMPLETE INTERRUPT PROCESSING 

SET UP FOR READ CHECK 

FETCH FUNCTION INDICATOR 
SKIP IF READ REQUESTED 
1-X2 START READ CHECK OPERATION 
RESTORE LAST 2 WDS OF SEC- 
•TOR PREVIOUSLY READ 
FETCH INTERMEDIATE WD CNT 
SKIP IF MORE READING/WRTING 
BRANCH IF FINISHED 
POINT XR1 TO NEW I/O AREA 
SAVE LAST 2 WDS OF SECTOR 
•JUST READ/WRITTEN 
WD CNT, SCTR ADDR NEXT OP 
STORE BOTH IN NEW I/O AREA 
BACK TO SET UP NEXT OPERATN 



LD 


2 


DZ975-X2 


STO 


2 


DZ905-X2 


LD 


2 


DZ945-X2 


BSC 




Z 


BSI 


2 


DZ070-1- 


LDD 


2 


DZ902-X2 


STD 


1 





LD 


2 


DZ912-X2 


BSC 




+ 


MDX 




DZ410 


MDX 


LI 


320 


LDD 


1 





STD 


2 


DZ902-X2 


LDO 


2 


DZ912-X2 


STD 


1 





MDX 




DZ240 



SYS07580 
SYS07590 
SYS07600 
SYS07610 
SYS07620 
SYS07630 
SYS07640 
SYS07650 
SYS07660 
SYS07670 
SYS07680 
SYS07690 
SYS07700 
SYS07710 
SYS07720 
SYS07730 
SYS07740 
SYS07750 
SYS07760 
SYS07770 
SYS07780 
SYS07790 
SYS07800 
SYS07810 
SYSC7820 
SYS07830 
SYS07840 
SYS07850 
SYS07860 
SYS07870 
SYS07880 
SYS07890 
SYS07900 
SYS07910 
SYS07920 
SYS07930 
SYS07940 
SYS07950 
SYSC7960 
SYS07970 
SYS07980 
SYS07990 
SYS08000 
SYS08010 
SYS08020 
SYS08030 
SYS08040 
SYS08050 
SYS08060 
SYS08070 
SYSC8080 
SYS08090 
SYS08100 
SYS08110 
SYS08120 
SYS08130 
SYS08140 
SYS08150 
SYS08160 
SYS08170 
SYS08180 
SYS08190 
SYS08200 
SYSC8210 
SYS08220 
SYS08230 
SYS08240 
SYS08250 
SYS08260 
SYS08270 
SYS08280 
SYS08290 
SYS08300 
SYS08310 
SYS08320 
SYS08330 
SYS08340 
SYS08350 
SYS08360 
SYS08370 
SYSC8380 
SYS08390 
SYS08400 
SYS08410 
SYS08420 
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ADOR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



OICF 



OOOB 



OlDA 





OOAO 


C1DR 





ooco 


OlDC 





ooco 


OIDD 





ooco 


OlDE 




0002 


C1EO 


c 





0843 
0844 
0845 
0846 
0847 
0848 
0849 
0850 
0851 
0852 
0853 



BSS 



DC 
$CIDN DC 
DC 
DC 
BSS 
$ZEND EQU 



11 



•CIL1 

*-# 
#-* 



PATCH AREA 



ID NO. OF CORE IMAGE LDRtPl 

CORE ADDR/CID NO. 

WORD COUNT 

SCTR ADDR 

WD CNT, SCTR ADDR CORE LOS 

1 + END OF DISKZ 



SYS08430 
SYS08440 
SYS08450 
SYS08460 
SYS08470 
SYS08480 
SYS08490 
SYS08500 
SYS08510 
SYS08520 
SYS08530 



EQUIVALENCES 
ADDR REL OBJECT 



ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



006E 





0070 


C 


0071 


C 


0078 





008C 





C08D 


c 


C08E 





008F 





0090 


c 


0091 





0092 





0093 


c 


0094 





0095 





0096 





0097 


C 


0098 





OOAO 





C0A1 






0014 





C016 





0017 


c 


0018 





0019 


c 


C01A 





C05A 





0OB9 





C0D4 


c 


OOEF 





OOFO 





00F1 


c 



0000 

0001 

0002 
C003 

0006 

0007 
0000 



0000 C 

0001 G 
C002 
C003 

0004 

0005 
C006 

0007 

0008 

0009 
OOOA 
OOOB 
0011 C 
001A 
001C 



0855 


# 












SYS08550 


0856 


* EQUIVALENCES FOR 


PHASE ID NUMBERS 




SYS08560 


0857 


• 












SYS08570 


0858 


•SU PI 


EQU 


110 




PHASE ID FOR 


MCRA 


SYS08580 


0859 


•SUP3 


EQU 


112 




PHASE ID FOR 


DUMP PROGRAM 


SYS08590 


0860 


•SUP4 


EQU 


113 




OHASE ID FOR 


ERR ANAL PROG 


SYS08600 


0861 


•CLBO 


EQU 


120 




PHASE ID FOR 


CLB, PHASE 0/1 


SYS08610 


0862 


•1403 


EQU 


140 




PHASE ID FOR 


SYS 1403 SUBR 


SYS08620 


0863 


'1132 


EQU 


141 




PHASE ID FOR 


SYS 1132 SUBR 


SYS08630 


0864 


«CPTR 


EQU 


142 




PHASE ID FOR 


SYS CP SUBR 


SYS08640 


0865 


•2501 


EQU 


143 




PHASE ID FOR 


SYS 2501 SUBR 


SYS08650 


0866 


•1442 


EQU 


144 




PHASE ID FOR 


SYS 1442 SUBR 


SYS08660 


0867 


'1134 


EQU 


145 




PHASE ID FOR 


SYS 1134 SUBR 


SYS08670 


0868 


'KBCP 


EQU 


146 




PHASE ID FOR 


SYS KB/CP SUBR 


SYSC8680 


0869 


•CDCV 


EQU 


147 




PHASE ID FOR 


SYS CD CONV 


SYS08690 


0870 


'PTCV 


EQU 


148 




PHASE ID FOR 


SYS 1134 CONV 


SYS08700 


0871 


•KBCV 


EQU 


149 




PHASE ID FOR 


SYS KB CONV 


SYS08710 


0872 


•DZID 


EQU 


150 




PHASE ID FOR 


DISKZ 


SYS08720 


0873 


•DUD 


EQU 


151 




PHASE ID FOR 


DISKI 


SYS08730 


0874 


»DNID 


EQU 


152 




PHASE ID FOR 


DISKN 


SYS08740 


0875 


•CIL1 


EQU 


160 




PHASE ID FOR 


CI LOADER, PH 1 


SYS08750 


0876 


•CIL2 


EQU 


161 




PHASE ID FOR 


CI LOADER, PH 2 


SYS08760 


0877 


* 












SYS08770 


0878 


» EQUIVALENCES FOR 


RESIDENT MONITOR 




SYS08780 


0879 


* 












SYS08790 


0880 


$LKNM 


EQU 


$hASH 


SAVE AREA FOR NAME OF LINK 


SYS08800 


0881 


$RMSW 


EQU 


$HASH+2 


EXIT-LINK-DUMP SW(-1,0,+1) 


SYS08810 


0882 


$CXR1 


EQU 


$hASH+3 


SAVE AREA FOR XR1 


SYS08820 


0883 


*CLSW 


EQU 


SHASH+4 


SW FOR CORE 


IMAGE LDR.PH 2 


SYS08830 


1884 


$DMPF 


EQU 


$HASH+5 


DUMP FORMAT 1 


CODE 


SYS08840 


3885 


$ACEX 


EQU 


$HASH+6 


ACC AND EXT 1 


tfHEN ENTER DUMP 


SYS08850 


0886 


$CILA 


EQU 


JS150+1 


ADOR OF END 1 


DF DK I/O - 3 


SYS08860 


0887 


$IBT2 


EQU 


$1205+1 


ADR OF SERVICE PART OF DKIO 


SYS08870 


0888 


$I6T4 


EQU 


$1405+1 


ADDR OF THE 


IBT 


SYS08880 


0889 


$SNLT 


EQU 


$DBSY+1 


SENSE LIGHT : 


INDICATOR 


SYS08890 


0890 


$PAUS 


EQU 


DZ000-2 


PAUSE, INTERRUPT INDICATOR 


SYS08900 


0891 


$RWCZ 


EQU 


DZOOO-l 


READ/WRITE SWITCH (CARDZ) 


SYS08910 


C 192 


• 












SYS08920 


089'; 


» EQUIVALE 


NCES FOR 


ABSOLUTE SECTOR ADDRESSES 


SYS08930 


0894 


* 












SYSC8940 


0895 


•I DAD 


EQU 





ADDR 


OF SCTR WITH 


ID,DEF CYL ADR 


SYS08950 


0896 


•DCOM 


ECU 


1 


ADDR 


OF SCTR CONTAINING DCOM 


SYS08960 


C897 


•RIAD 


EQU 


2 


AODROOF SCTR CONTAINING RES IMGE 


SYS08970 


0898 


•SLET 


EQU 


3 


ADDR 


OF SCTR CONTAINING SLET 


SYS08980 


0899 


•RTBL 


EQU 


6 


ADDR 


OF SCTR CONTAINING RELD TBL 


SYS08990 


0900 


•HDNG 


EQU 


7 


ADDR 


OF SCTR CONTAINING PAGE HDR 


SYS09000 


0901 


•STRT 


EQU 





ADDR 


OF SCTR W/ COLD START PROG 


SYS09010 


0902 


* 












SYS09020 


0903 


* EQUIVALENCES FOR 


THE ( 


;ORE IMAGE HEADER 


SYS09030 


0904 


• 












SYS09040 


0905 


•XEQA 


EQU 





RLTV 


ADDR OF CORE 


LOAD EXEC ADDR 


SYS09050 


0906 


•CKON 


EQU 


1 


RLTV 


ADDR OF WD CNT OF COMMON 


SYS09060 


0907 


•DREQ 


EQU 


2 


RLTV 


ADDR OF DISK 


I/O INDICATOR 


SYS09070 


0908 


•FILE 


EQU 


3 


RLTV 


ADOR OF NO. i 


=ILES DEFINED 


SYS09080 


0909 


•HWCT 


EQU 


4 


RLTV 


ADDR OF WD CNT OF CI HEADER 


SYSC9090 


0910 


•LSCT 


EQU 


5 


SCTR 


CNT OF FILES 


IN WK STORAGE 


SYS09100 


0911 


•LOAD 


EQU 


6 


RLTV 


ADDR OF LOAD 


ADDR CORE LOAD 


SYS09110 


0912 


•XCTL 


EQU 


7 


RLTV 


ADDR DISKl/DISKN EXIT CTRL 


SYS09120 


0913 


•TVWC 


EQU 


8 


RLTV 


ADOR OF WD CNT OF TV 


SYS09130 


0914 


•WCNT 


ECU 


9 


RLTV 


ADDR OF WD CNT OF CORE LOAD 


SYS09140 


0915 


•XR3X 


EQU 


10 


RLTV 


ADDR OF EXEC 


SETTING OF XR3 


SYS09150 


0916 


•ITVX 


EQU 


11 


RLTV 


ADDR OF 1ST 1 


«ID OF ITV 


SYS09160 


0917 


•ILS4 


EQU 


17 


RLTV 


ADDR OF 1ST 1 


«ID OF IBT4 


SYS09170 


0918 


•ovsw 


EQU 


26 


RLTV 


ADDR OF LOCAL/SOCAL SWITCH 


SYS09180 


0919 


•CCRE 


EQU 


28 


CORE 


SIZE OF BUILDING SYSTEM 


SYS09190 
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AODR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNQ 



OOID 


C 


0920 


•HtND ECU 29 RLTV ADDR OF LAST WD OF CI HDR 




SYS09200 






0921 


• 




SYS09210 






0922 


* EQUIVALENCES FOR LET/FLET 




SYSC9220 






0923 


* 




SYS09230 


C005 


c 


0924 


•LFHD EQU 5 WORD COUNT OF LET/FLET HEADER 




SYS09240 


0003 





0925 


•LFEN EQU 3 NO OF WDS PER LET/FLET ENTRY 




SYS09250 


COOO 


c 


0926 


•SCTN EQU RLTY ADDR OF LET/FLET SCTR NO. 




SYS09260 


0001 





0927 


•UAFX EQU 1 RLTV ADDR OF SCTR ADDR OF UA/FXA 


SYS09270 


0003 





0928 


■WDSA EQU 3 RLTV ADDR OF WDS AVAIL IN SCTR 




SYS09280 


0004 





0929 


'NEXT EQU 4 RLTV ADDR OF ADOR NEXT SCTR 




SYS09290 


0000 


c 


0930 


•LFNM EQU RLTV ADDR OF LET/FLET ENTRY NAME 


SYS09300 


0002 





0931 


•BLCT EQU 2 RLTV ADDR OF LET/FLET ENTRY DBCT 


SYS09310 






0932 


* 




SYS09320 






0933 


» MISCELLANEOUS EQUIVALENCES 




SYS09330 






0934 


• 




SYS09340 


0033 





093 5 


•ISTV EQU 51 ISS NO. ADJUSTMENT FACTOR 2 


-1 


PMM09345 


00"5 





"936 


•MXJR EQU 5 MAX NO. DRIVES SJPPORTED 




PMM09350 


3R0 


o 


093 7 


'COMZ EQU 896 LOW COMMON LIMIT FOR DISKZ 




PMM09360 


4C0 





093 3 


'COMl EQU 121t> LOW COMMON LIMIT FOR DISK1 




PMN09370 


0600 





0939 


•COM2 EQU 1536 LOW COMMON LIMIT OF DISKN 




PMM09380 


0011 


■^ 


0940 


■TCNT EQU 17 NO. TRIES BEFORE DISK ERROR 




PMM 09390 


00F9 


o 


0941 


•3KEP EQU 0Z000+7 LIBF ENTRY TO DISK1/N 




PMM09400 


00F7 





0942 


•3KIP EQU DZ000+5 DISK I/O INTERRJPT ENTRY PT 




P MM 09410 


100" 





094 3 


'MCOR EQU 4096 SIZE OF MINIMUM CORE 2 


-1 


PMM09417 


0"7F 





09 4.4 


Y EQU 127 




PMM09420 






946 


****** * ** * * ******* ******** *** .** *** * ****** ********** 


PMM 09440 






"947 


* 


* 


PMM09450 






094a 


♦ STATUS - VERSION 2. MODIFICATION LEVEL 0. 


* 


PMN 09460 






0949 


* 


* 


P^M09470 






0950 


♦FUNCTION/OPERATION - 


* 


PMN09480 






nq^i 


* THIS PR03RAM IS READ INTO CORE FROM SECTOR 


* 


PMM09490 






0952 


* OF THE SYSTEM CARTRIDGE AND TRANSFERRED TO BY 


* 


PMM 09500 






'09 53 


* THE COLO START CARD. DEFECTIVE CYLINDER 


* 


PMM 09510 






"954 


* ADDRESSES, CARTRIDGE ID AND DISKZ ARE ALSO ON 


* 


PMN09520 






0955 


* SECTOR AND ARE READ IN AT THE SAME TIME. 


* 


PMN09530 






0956 


* ALL THAT REMAINS FOR THE COLD START PROGRAM IS* 


PMN09540 






09 5 7 


* TO READ IN THE RESIDENT IMAGEf SAVE THE 


* 


PMN 09 550 






"953 


* CARTRIDGE ID AND TRANSFER TO THE AUXILIARY 


* 


PMM09560 






"959 


* SUPERVISOR THROUGH *DJMP IN THE RESIDENT 


* 


PMN09570 






0960 


* MONI TOR. 


* 


PMN09580 






0961 


* 


* 


PMM09590 






0962 


♦ENTRY - CR010-2 


* 


PMM 09600 






096 3 


* ENTER PROGRAM BY TRANSFER FROM COLD START CARD* 


PM^09610 






"964 


* 


* 


PMM09620 






0965 


*INPUT - 


* 


PMM 09630 






0966 


* THE CARTRIDGE ID OF LOGICAL DRIVE ZERO (THE 


* 


PMM09640 






0967 


* SYSTEM CARTRIDGE) IS READ IN FROM SECTOR 


* 


PM 1 * 09650 






0963 


* WI TH THE COLD START PROGRAM. 


* 


PMM 09660 






0969 


* 


* 


PMM 09670 






097 


♦OUTPUT - 


* 


PMM09680 






0971 


* * THE RESIDENT IMAGE IS READ INTO CORE FROM 


* 


PMM09690 






"972 


* THE DISK. 


* 


PMM09700 






0973 


* * I N COMMA- 


* 


PMN 09710 






0974 


* iACDE 


* 


PMM09720 






"97 3 


* 4CIBA-1 


* 


PMM09730 






0976 


* SCION 


* 


PMM 89740 






0977 


* SCYLN 


* 


PMM09750 






0978 


* $DBSY 


* 


PMM 09760 






0979 


* 5I0CT 


* 


PMM09770 






09.30 


* 


* 


PMM09780 






0981 


♦EXTERNAL REFERENCES - 


* 


PMM09790 






09,3 2 


* JZOOO SUBROUTINE TO PERFORM DISK I/O. 


* 


PMM09800 






093 3 


* 


* 


PMM09810 






"90'+ 


*r XI TS - 


* 


PMM09820 






098 5 


* THE ONLY EXIT IS TO THE AUXILIARY SUPERVISOR 


* 


PMN 09830 






0986 


* AS FULLOWS- 


* 


PMM09840 






0987 


* Li SI tOUMP 


* 


PMM09850 






0938 


* DC -1 


* 


PMM09860 






09 3 9 


* 


* 


PMM09870 






099 


♦TA3LES/W0RK AREAS - N/ A 


* 


PMM09880 






om 


* 


* 


PM*J 09890 






09° 2 


♦ ATTRIBUTES - 


* 


PMM09900 






39 3 


* THIS PR03RAM IS NOT NATURALLY RELOCATABLE. 


* 


PMM09910 






"99 '+ 


* 


* 


PMM09920 






ny9 ? 


♦ NOTE S - 


* 


PMM09930 






" ?9 6 


* DISK ERRORS RESULT IN A WAIT AT $ PS T 2 . 


* 


PMM09940 






"J 9 7 


*************************************************** 


PMM09950 






"99^1 


* 




P^M 09970 






100(1 


* READ THE RESIDENT IMAGE INTO CORE 




PMM09980 






100 1 


* 




PMM09990 


01E" 


■1 617F- 


10" 2 


LDX 1 Y 




PMM 10000 


01F1 


n C 32F 


1"" 1 


LDD CR920 SET UP WORD COUNT AND SCTR 


PMN10010 


OIF? 


"0 0C" r 0""4 


1004 


;*010 STO L $CIBA-1 *ADDR OF RESIDENT IMAGE 




PMM10020 


1E4 


" 1 2 * 


1"0 5 


STO 1 SDCYL-Y *INITIALIZE DEF CYL NO. 1 




PMM 10030 


1F5 


C1S4 


100 6 


LO 1 3-Y FETCH LOG URIVE AREA CODE 


PMM 10040 


1 Eft 


H12T 


100 7 


STO 1 1ACDE-Y *AND STORE IT IN COMMA 




PMM 10050 
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ADDR REL OBJECT ST. NO, 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



01E7 





00 2 9 


1 F8 





C156 


01E9 





00F1 


OlEA 





C0F8 


OlEri 





1890 


OlFC 





016F 


01 to 


n 


1 1 P. 


our 


n 


4173 


OIGF 


r\ 


3000 



01FO 





1910 


01FI 





0113 3 


OIF? 





C81ts 


01F3 


o 


0985 


01F4 


o 


C01C 


01F r > 


i 


0120 


01F6 





C016 


01F7 


n 


0131 



01F8 
01F9 



41CC 
FFFF 



0200 





703F 


020E 





nooi 


020F 





0007 


021" 





00E8 


0211 


o 


00^2 


0212 




0000 



100 3 
1009 

101 
1011 
1012 
101 3 
101^ 
101b 
101b 
low 

101 -i 
1019 
102O 
1021 
1022 

102 3 
1024 
102 5 
1026 
1027 
1028 
102 9 
IO30 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 



STj 

LO 

STu 

LD 

SRT 

STt) 

STO 

3SI 

WAI T 



CR920+1 SAVE THE ARtA COOF. 

1 DZ000-2-27-Y FETCH AND SAVE THE 
3>CI0N 
CP.010+1 



PMN 10060 

PMN10070 

♦ CARTRIDGE ID PMM 10080 

FETCH CORE ADDR OF RESIDENT PMN 10090 



16 *IMAGt AND PJT IN EXTENSION PMM10100 

1 iDbSY-Y CLEAR DISK BUSY INDICATOR, PMN10110 

1 SCYLN-Y INITIALIZE ARM POSITION 

1 DZOOO-Y FETCH RESIDENT IMAGE 

WAIT CUT THE INTERRUPT 



* INITIALIZE ITEMS IN COMMA 



SRA 




16 


STO 


1 


JIOCT-Y 


LDO 




CR910 


STO 


1 


$CIBA-1-Y 


LD 




CR92 0+1 


STO 


1 


SACDE-Y 


LD 




CR905 


STO 


1 


0-Y 



CLEAR IOCS COJNTER 



* TRANSFER TO THE AUXILIARY SUPERVISOR 

* TO COMPLETE INITIALIZATION 



3 SI 

DC 



.8 SS 



1 $DUMP-Y 
-1 



PMM 10120 
PMN10130 
PMN 10140 
PMM 10150 
PMN 10160 
PMM 10170 
PMM 10180 
PMM 10190 
PMN 10200 
*FOR SAVING CORE ON THE Clb PMM 10210 
FETCH AREA CODE PMN10220 

RESET AREA CODE PMM 10230 

INITIALIZE WD ZERO TO BR TO PMM 10240 
*DUMP ENTRY POINT PLJS 1 PMM 10250 

PMM 10260 
PMM 10270 
PMM 10280 
PMM10290 
BR TO AJXILLIARY SUPERVISOR PMM 10300 



*FOR JOB PROCESSING 



PATCH AREA 



INSTANTS AND WORK AREAS 



CR905 M3X 
CR910 OC 

oc 

CR920 DC 
DC 
ENO 



$DUMP+l-l TO BE STORED IN LOCN ZERO 
1 WD CNT.SCTR ADDR OF CAUSE 

■HONG *HARMLESS WRITE TO DISK 

$D8SY-$CH12 WO CNT AND SCTR 
•RIAD *ADDR OF RESIDENT IMAGE 



PMN10310 
PMM 10320 
PMN 10330 
PMM 10340 
PMM 10350 
PMM 10360 
PMN 10370 
PMM 10380 
PMM10390 
PMM 10400 
PMM 10410 
PMM 10420 



CROSS-REFERENCE 



SYMBOL 


VALUE 


RFL 


DEFN 


REFERENCES 






CR010 


01E2 





1004 


1011 








CR905 


0200 





1039 


102 6 








CR910 


n 2 0E 





1040 


102 2 








CR920 


0210 





1042 


1003 


1 008 


1024 




DZOOO 


00F2 





0586 


0322 


0343 


0503 


0622 


DZ010 


OOF 7 





0593 


0604 


0617 






D7.020 


OOF 9 





0595 


0589 








DZ030 


OOFF 


o 


0601 


063 9 








DZ060 


0104 





0606 


062 6 








DZ070 


0ir>6 


•0 


0610 


0791 


0797 


0823 


831 


D Z'l on 


0108 





0615 


05 95 


0596 


06 91 




DZ180 


010E 





0621 


0594 


0610 






DZ18 5 


0116 





0627 


0804 








DZ190 


0110 





0636 


06 96 








DZ210 


0146 





0637 


0811 








OZ215 


014C 





0695 


0767 








07 220 


014F 


n 


0700 


0770 








DZ225 


0152 





0706 


0773 








07.2 30 


0157 





0714 


0605 








DZ235 


0159 





0715 


0600 


0630 






0Z240 


015E 





0719 


0842 








DZ250 


016D 





0734 


0742 








DZ280 


016E 





0735 


0721 


0727 


0723 


3729 


0Z3O0 


0178 





0746 


0737 








D7.330 


017D 


n 


0750 


0723 








DZ340 


018C 





0764 


0702 








DZ350 


0197 





0775 


063 8 


0725 


0802 




07.380 


01A4 





790 


0710 


0787 






DZ400 


01AF 





0809 


0777 








DZ410 


010,1 





0811 


0836 








079^0 


0122 





06 45 


0653 


0789 






DZQ"1 


0123 





0646 


0801 








DZ902 


124 





0647 


062 7 


071 7 


0832 


0839 


DZ904 


0126 





06 49 


0611 


0790 


0796 


0819 


07.90 5 


0127 





0650 


082 8 








0Z906 


0128 


o 


0651 


0731 


0818 






DZ907 


0129 





0652 


0757 









0683 0746 0890 0891 0941 0942 1009 1015 



3740 
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SYMBOL VALUE REL DEFN 



REFERENCES 



DZ908 
DZ909 
DZ910 
0Z9U 
DZ912 
DZ913 
07 9 1 4 
DZ°15 
DZ916 
DZ920 
DZ925 
DZ9 30 

07935 
DZ <?'."■ 
07945 
DZ95f 
07955 
DZ961 
DZ96 5 
DZ970 
0797 5 
DZ980 
D79«5 
DZ990 
07995 
$ ACOF 
SACP.X 
SCCAO 
J CHI 2 
SCIBA 
i C I O^J 
SCIL A 
SCLSW 

* 00*1 M 
SCJRE 
$CPTR 
SCTSrf 
tCWCT 
$CX^ 1 
SCYLVI 
SDABL 
$DADR 
SOBSY 
$OCDE 
$DCYL 
SDOSH 
SDMPF 
SDREQ 
tDIMP 
tDZlN 
SEXIT 
$FLSH 
$FPAD 
tHASH 
$ IBSY 
$ I3T2 
SIBT4 

* IOCT 
$ IREJ 

$ 1200 

$ 120 5 

* 1210 
$ 129" 
$1400 
$ 140 3 
$ 140 5 
$ 1410 
$ 1490 
$ I 49 2 
S 149 4 
$<CSW 
SL AST 
SL EVO 
5L EV1 
SL Ey/2 
SL EV3 
SLEV4 
SLEV5 
$L IM< 
SLKNM 
SLSAO 
SNOJP 
SNXEU 
SPAJS 
tPBSY 
SPGCT 
tPHSE 



012A 
12:3 
012C 
0120 
012F 
01?F 
013" 
0]31 
0132 
"134 
0135 
0136 

0137 
138 
0139 
f 13A 
13B 
013C 

130 
013E 

01 3F 
140 
014 1 
0142 
0143 

00 9 F 
ooia 
0074 
0006 
0005 

01 DB 
"0 5 A 
0018 

Of r>F. 
007F; 
nooF 
0^72 
ooi7 
">OQA 
001 1 
001O 
"OLE 
0077 
on&4 
OOQU 
0O19 
0012 
003F 
"076 
0038 
O071 
0095 
0014 
0013 
00B9 
0004 
0032 
002C 
00H3 
0OH8 
OOBA 
00C2 
O0C4 
OCDO 
000 3 
000 5 
OOOE 
OOEO 
00E2 
007C 
0033 
0008 
0009 
OOOA 
OOOB 
00 PC 
OOOD 
0039 
0014 
0075 
0034 
0035 
OOFO 
0036 
0037 
007 8 



0653 
0654 
06 5 5 
0656 
0657 
0658 
H659 
0660 
0661 
663 
0664 
0665 

0666 
0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
06 76 
0677 
0678 
0428 
0885 
0355 
0252 
0251 
0849 
0836 
0883 
0253 
0265 
0365 
0266 
03 53 
0882 
0418 
0268 
0267 
0530 
0358 
0439 
0521 
0884 
0269 
0314 
0357 
0300 
03 51 
0409 
0271 
0270 
0887 
0888 
0291 
0235 
0465 
0471 
0472 
0477 
0497 
0507 
0511 
0512 
0522 
0523 
0526 
03 63 
0292 
0257 
0258 
0259 
0260 
02ol 
02 62 
0304 
0880 
0356 
0293 
0294 
0890 
0295 
0296 
0359 



0795 
0754 
0623 
0762 
0634 
0747 
06 95 
0635 
0812 
0758 
0753 
0739 

0700 
0733 
0598 
0761 
0748 
072 6 
0722 
0724 
0760 
0751 
0816 
0749 
0738 
0672 
0317 

1042 
0309 
1010 
0341 



0318 
0671 

0333 



0706 0752 0764 0734 

0718 0763 0809 0813 0834 0840 



06 71 
062 4 
0320 



0334 
0338 



0756 0759 0329 



0827 

0755 0821 

0673 1007 1025 

1004 1023 



0&73 1014 



0344 0587 0602 0629 0688 0889 1013 1042 



1005 
076 5 



0319 1032 1039 



0880 0881 0882 0833 0884 0885 



0315 0331 

0505 

0259 0476 

0887 

0466 0467 

046 9 04 7 5 

0261 0516 

0504 

0888 

0499 0500 

0498 0515 

05 02 



0689 0714 1321 



0468 



0501 
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SYMBOL 


VALUE 


REL 


OEFN 


REFERENCES 


$PRET 


0028 





0280 


02 82 


0701 


$PST1 


0081 





0371 


03 73 




$PST2 


n085 





0377 


03 79 


0636 


$PST3 


0089 





0383 


03 85 




$ P S T 4 


0030 





0389 


03 91 




$RMSW 


0^16 





0381 


0330 




$RWCZ 


00F1 





0891 






$SCAM 


0020 





0274 






tSNLT 


OOEF 





0889 






$STJP 


0091 





0396 


02 62 


0398 


$SYSC 


OOFO 





52 4 






tsono 


004D 





0329 


030C 




SSlOn 


004E 





0330 


0306 


0324 


$S 150 


00 59 





0340 


0886 




$S900 


003C 





0308 


0321 


032 3 


tS91.o 


O03E 





0310 


032 9 




$uf m 


0070 





0364 






$JFIJ 


0079 





0360 






JUL ET 


0020 





0286 






$WRD1 


0073 





0362 






$WSDR 


007A 





0361 






$ZE^D 


01F0 





0853 


0580 


0582 


* 1132 


007F 





0366 






$1403 


0080 





0367 






X2 


OOF 2 





0683 


0636 
0762 
0813 


0747 0748 0749 0751 0752 0753 0754 0755 0756 0757 0753 0759 0760 0761 
0763 0764 0765 0734 0783 0789 0790 0791 0795 0796 0797 0801 0809 0812 
0816 0818 0819 0821 0823 0827 0828 0829 0831 0832 0834 0839 0840 


Y 


007F 





0944 


1002 


1005 1006 1007 1009 1013 1014 1015 1021 1023 1025 1027 1032 


' BLCT 


0002 





0931 






" COCV 


0093 


■0 


0869 






■ CIL 1 


004 





0875 


0848 




• CIL2 


OOA 1 





0876 






' CLBO 


0078 





0861 






' CMm 


0C01 





0906 






• C01Z 


03 80 





0937 






■ ecu 1 


4CO 





0938 






' COM2 


0600 





0939 






• CDRE 


0C1C 





0919 






• CPTR 


oorf 





0364 






• QCOM 


ticu 


n 


0896 






• IX E P 


00F9 





0941 






' 0< IP 


00F7 





0942 






• DM I 


0098 





0874 






• DRtO 


00O2 





0907 






■ DZ ID 


0096 





0872 


0581 




• 0110 


0097 





0873 






1 FIL E 


0003 





0903 






1 HONG 


OO07 





0900 


1041 




' HE^JO 


0010 





0920 






' HWCT 


Of 04 





0909 






• IOAD 


0000 





0895 






• ILS4 


0011 





0917 






• ISTV 


0033 





0935 






■ 1T\/X 


OOOB 





0916 






" < BCP 


0092 





0868 






•<BC\/ 


0O95 





0871 






•LOAD 


00O6 





0911 






• L FEM 


000 3 





0925 






' LFHO 


O0O5 





0924 






• L F\M 


OOOO 





0930 






'LSCT 


00O5 





0910 






« MCOR 


1000 





0943 






•MX.)R 


0005 





0936 






•NEXT 


OC04 





0929 






' 3VSW 


0014 





0918 






'PTC.V 


0094 





0870 






• RIAO 


0002 





0897 


1043 




• RTRL 


0006 





0899 






■ SCTN 


0000 





0926 






• SLET 


0CO3 





0898 






• STRT 


OOOO 





0901 






• SUP 1 


006E 





0858 






• SUP3 


0070 





0859 






• SUP4 


0071 





0860 






• TCNT 


0011 





0940 


0601 




' TVWC 


0008 





0913 






•UAFX 


0001 





0927 






■ WCNT 


0009 





0914 






•WDSA 


000 3 





0928 






• XCTL 


000 7 





0912 






• XEOA 


OOOO 





0905 






' XR3X 


OOOA 





0915 






• 1132 


0080 





0863 






' 1134 


0091 





0867 






■ 14 n 3 


008C 





0862 






' 1442 


0090 





0866 






•2501 


00 8-F 





0865 
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APPENDIX C. ABBREVIATIONS 



Below is a list of the abbreviations used in the 
listings of the 1130 Disk Monitor System, Version 
2. Included in this list are the abbreviations used 
in current 1130 and 1800 systems. 



Abbreviation 


Meaning 


ABS 


Absolute 


ACC 


Accumulator, Accumulate 


ACCT 


Account 


ACT 


Actual 


ADDL 


Additional 


ADDR 


Address 


ADJ 


Adjust 


ADV 


Advance 


AI 


Analog Input 


ALG 


Algebraic 


ALLOC 


Allocate 


ALLOCN 


Allocation 


ALPHA 


Alphabetic 


ALT 


Alternate, Alteration 


AO 


Analog Output 


APPDGE 


Appendage 


APPROX 


Approximate 


ARITH 


Arithmetic 


ASDNG 


Ascending 


ASM 


Assembler 


ASMBL 


Assemble 


ASGN 


Assign 


AUX 


Auxiliary 


AVAIL 


Availability 


AVG 


Average 


BEGNG 


Beginning 


BFR 


Buffer 


BKSP 


Backspace 


BLK 


Block 


BLKCNT 


Block Count 


BLNK 


Blank 


BR 


Branch 


BM 


Buffer Mark 


CAD 


Core Address 


CALC 


Calculate, Calculator 


CAR 


Channel Address Register 


CARR 


Carriage 


CART 


Cartridge 


CAT 


Catalog 


CATLGD 


Cataloged 



Abbreviation 


Meaning 


CC 


Card Column 


CD 


Card 


CDE 


Code 


CHAN 


Channel 


CHAR 


Character 


CHK 


Check 


CHG 


Change 


CHKPT 


Checkpoint 


CIB 


Core Image Buffer 


CIL 


Core Image Loader 


CLB 


Core Load Builder 


CLD 


Core Load 


CLR 


Clear 


CLS 


Close 


CMN 


COMMON 


CMP 


Compare 


CMPL 


Complement 


COMMA 


Communication Area 


COMP 


Compute 


CNSL 


Console 


CNT 


Count 


COL 


Column 


COMM 


Communication 


CON 


Constant 


COND 


Condition 


CONT 


Continue 


CORR 


Correction 


CP 


Console Printer, Control Parameter 


CPLD 


Coupled 


CPTN 


Computation 


CTR 


Counter 


CTRL 


Control 


CURR 


Current 


CVRT 


Convert 


CYL 


Cylinder 


DAO 


Digital-Analog Output 


DB 


Disk Block 


DC 


Data Channel 


DCMT 


Document 


DEC 


Decision 


DECML 


Decimal 


DECR 


Decrement 


DEF 


Defective 


DEFN 


Define 


DEL 


Delete 


DESCG 


Descending 
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Abbreviation 


Meaning 


Abbreviation 


Meaning 


DETM 


Determine 


FREQ 


Frequency 


DEVC 


Device 


FUNC 


Function 


DGT 


Digit 


FWD 


Forward 


DI 


Digital Input 


FXA 


Fixed Area 


DICT 


Dictionary 


FXD 


Fixed 


DIM 


Dimension 






DIRCTY 


Directory 


GEN 


Generator 


DISP 


Displacement 


GENL 


General 


DISPCHG 


Dispatching 


GM 


Group Mark 


DK 


Disk 


GT 


Greater Than 


DLMTER 


Delimeter 


GTE 


Greater Than or Equal To 


DPC 


Direct Program Control 






DR 


Drive 


HDLER 


Handler 


DSW 


Device Status Word 


HDR 


Header 


DT 


Defective Track 


HEX 


Hexadecimal 


DUP 


Disk Utility Program 


HI 


High 


DUPCTN 


Duplication 


HLT 


Halt 






HSK 


Housekeeping 


EBC 


EBCDIC 


HYPER 


Hyper tape 


ELIM 


Eliminate 






ELT 


Element 


IAR 


Instruction Address Register 


ENT 


Entry 


IC 


Instruction Counter 


EOF 


End Of File 


ID 


Identification 


EOJ 


End Of Job 


rox 


Index 


EOR 


End Of Reel 


ILS 


Interrupt Level Subroutine 


EP 


Extended Precision 


ILSW 


Interrupt Level Status Word 


EQ 


Equal, Equate 


INCR 


Increment 


EQU 


Equate 


IND 


Indicate 


ERP 


Error Parameter 


INDN 


Indication 


ERR. 


Error 


INDR 


Indicator 


ES 


Electronic Switch 


INFO 


Information 


ETV 


Executive Transfer Vector 


INITLZ 


Initialize 


EVAL 


Evaluate 


INQ 


Inquire 


EXCH 


Exchange 


INT 


Initial 


EXEC 


Execute 


INTFCE 


Interface 


EXP 


Exponent 


INTLD 


Interlude 


EXPR 


Expression 


INTM 


Interim 


EXTYP 


Exit Type 


INTMD 


Intermediate 


EXTR 


Extract 


INTNL 


Internal 






INTRPT 


Interrupt 


FAC 


Floating Accumulator 


I/O 


Input/Output 


FOR 


FORTRAN 


IOAP 


I/O Area Parameter 


FIO 


FORTRAN I/O 


IOCC 


I/O Control Command 


FLD 


Field 


IOCR 


I/O Control Routine 


FLDL 


Field Length 


INST 


Instruction 


JIG 


Figure 


INTERP 


Interpret 


FLET 


The Location Equivalence Table 


INVAL 


Invalid 




for the Fixed Area 


ISS 


Interrupt Service Subroutine 


FLT 


Floating 


ITER 


Iterate, Iteration 


FMT 


Format 


ITG 


Integer 


FR 


From 


I/P 


Input 
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Abbreviation 


Meaning 


Abbreviation 


Meaning 


KB 


Keyboard 


OPN 


Open 


KP 


Keypunch 


OPND 


Operand 






OPTN 


Option 


LBL 


Label 


OPTR 


Operator 


LCT 


List Control Table 


ORG 


Origin 


LD 


Load 


OVFLO 


Overflow 


LET 


Location Equivalence Table for 


OVLP 


Overlap 




User Area 


OVLY 


Overlay 


LFT 


Left 






LH 


Left-Hand, Leftmost 


PAPT 


Paper Tape 


LINKB 


Link/Busy Word 


PARAM 


Parameter 


LIT 


Literal 


PARTL 


Partial 


LN 


Line 


PERF 


Perforate, Perforated, Perforation 


LNG 


Length 


PERPHL 


Peripheral 


LO 


Low 


PFM 


Perform 


LOC 


Location 


PG 


Page 


LOCAL 


Load-on-Call Subroutine 


PGLIN 


Page and Line 


LT 


Less Than 


PH 


Phase 


LTE 


Less Than or Equal* To 


PHYS 


Physical 


LTR 


Letter 


PK 


Pack 


LVL 


Level 


PKD 


Packed 






PNCH 


Punch 


MACH 


Machine 


PNDG 


Pending 


MAGT 


Magnetic Tape 


POS 


Position 


MAINT 


Maintain, Maintenance 


PR 


Print 


MALF 


Malfunction 


PREC 


Precision 


MAX 


Maximum 


PREV 


Previous 


MEM 


Memory 


PRGE 


Purge 


MIN 


Minimum 


PRI 


Priority 


MISC 


Miscellaneous 


PRINC 


Principal 


ML 


Mainline 


PROC 


Process 


MN 


Mnemonic 


PROG 


Program 


MOD 


Modification 


PROT 


Protect 


MON 


Monitor 


PRTN 


Partition 


MPXR 


Multiplexor 


PRVNT 


Prevent 


MPY 


Multiply 


PT 


Pointer, Point 


MRGE 


Merge 


PTR 


Printer 


MSG 


Message 


PTV 


Positive 


MSTR 


Master 










QUALFD 


Qualified 


NEC 


Necessary 


QUANT 


Quantity 


NEG 


Negative 


QUE 


Queue 


NO. 


Number 






NORM 


Normalize, Normalized 


RAND 


Random 


NUM 


Numeric 


R + S 


Reset and Start 


NXT 


Next 


R/W 


Read/Write 






RCD 


Record 


OBJ 


Object 


RCV 


Receive 


OP 


Operation 


RD 


Read 


O/P 


Output 


RDY 


Ready 



Appendix C. Abbreviations 341 



Abbreviation 


Meaning 


Abbreviation 


Meaning 




REF 


Reference 


SUB 


Subtract 




REG 


Register 


SUBP 


Subprogram 




REL 


Release 


SUBR 


Subroutine 




RELOC 


Relocate, Relocatable 


SUBSC 


Subscript 




REQ 


Request, Require 


SUMM 


Summarize 




RET 


Return 


SUP 


Suppress 




RH 


Right-Hand, Rightmost 


SUP 


Supervisor 




RI 


Read in 


SYNC 


Synchronize, Synchronizer 




RLS 


Reels 


SYM 


Symbol 




RLTV 


Relative 


SYSRx 


System Reserved Word (x is 


a digit) 


RM 


Record Mark 


SYST 


System 




RO 


Read Out 


SW 


Switch 




RPT 


Report 








RSLT 


Result 


TBL 


Table 




RST 


Reset 


TECHNQE 


Technique 




RSTRT 


Restart 


TEMP 


Temporary 




RT 


Right 


TERM 


Terminal, Terminate 




RTE 


Route 


TM 


Tapemark 




RTN 


Routine 


TMN 


Transmission 




RWD 


Rewind 


TMT 
TOT 


Transmit 
Total 




SAD 


Sector Address 


TP 


Tape 




SAT 


Satellite 


TR 


Transfer 




SAR 


System Action Required 


TRK 


Track 




SCHED 


Schedule, Scheduler 


TRLR 


Trailer 




SCN 


Scan 


TRUNC 


Truncate, Truncation 




SCTR 


Sector 


TST 


Test 




SECT 


Section 


TU 


Tape Unit 




SEL 


Select 


TV 


Transfer Vector 




SEN 


Sense 


TW 


Typewriter 




SEQ 


Sequence 








SEQNO 


Sequence Number 


UA 


User Area 




SER 


Serial 


UAH 


User Action Required 




SEG 


Segment 


UFLO 


Underflow 




SIG 


Signal 


UNC 


Unconditional 




SIM 


Simulator 


UNLD 


Unload 




SK 


Skeleton 


UNPKD 


Unpacked 




SLET 


System Location Equivalence Table 


UTIL 


Utility 




SM 


Storage Mask 








SNGL 


Single 


V 


Version 




SOCAL 


System Load-On-Call Subroutine 


VAL 


Value 




SP 


Space 


VAR 


Variable 




SRCH 


Search 


VIOL 


Violation 




SPEC 


Specification, Specify 


VOL 


Volume 




ST 


Store 








STA 


Station 


WD 


Word 




STD 


Standard 


WM 


Word Mark 




STG 


Storage, Storing 


WR 


Write 




STMNT 


Statement 


WRK 


Work 




STP 


Standard Precision 


ws 


Working Storage 
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Abbreviation 


Meaning 


W/ 


With 


W/O 


Without 


XPL 


Explain, Explanation 


XR1 


Index Register 1 


XR2 


Index Register 2 


XR3 


Index Register 3 


XTR 


Extra 


Z 


Zero 


ZN 


Zone 



Abbreviation 




1st 


First 


2nd 


Second 


3rd 


Third 


4th 


Fourth 


5th 


Fifth 


6th 


Sixth 


7th 


Seventh 


8th 


Eighth 


9th 


Ninth 



Meaning 
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Disk Monitor 


Microfiche 


System Component 


Identification 


System Loader 




(Paper Tape) 




Bootstrap 


BAA. 001. 00 


Phase 1 


BAA. 002. 00 


Phase 2 


BAA. 003. 00 


System Loader (Card) 




Bootstrap 


BAA. 004. 00 


Core Image Loader 


BAA. 005. 00 


Phase 1 


BAA. 006. 00 


Phase 2 


BAA. 007. 00 


Disk Utility Program 




DUPCO 


JAA.001.00 


DCTL 


JAA. 002. 00 


STORE 


JAA. 003. 00 


FILEQ 


JAA. 004. 00 


DDUMP 


JAA. 005. 00 


DMPLT 


JAA. 006. 00 


DELET 


JAA. 007. 00 


DFINE 


JAA. 008. 00 


DEXIT 


JAA. 009. 00 


CDFAC 


JAA. 010. 00 


KBFAC 


JAA. 011. 00 


PTFAC 


JAA. 012. 00 


PRECI 


JAA. 013. 00 


FORTRAN Compiler 




Phase 1 


KAA.001.00 


Phase 2 


KAA.002.00 


Phase 3 


KAA.003.00 


Phase 4 


KAA. 004. 00 


Phase 5 


KAA.005.00 


Phase 6 


KAA. 006. 00 


Phase 7 


KAA. 007. 00 


Phase 8 


KAA. 008. 00 


Phase 9 


KAA. 009. 00 


Phase 10 


KAA. 010. 00 


Phase 11 


KAA. 011. 00 


Phase 12 


KAA. 012. 00 


Phase 13 


KAA. 013. 00 


Phase 14 


KAA. 014. 00 


Phase 15 


KAA. 015. 00 


Phase 16 


KAA. 016. 00 



Disk Monitor 


Microfiche 


System Component 


Identification 


Phase 17 


KAA. 017. 00 


Phase 18 


KAA. 018. 00 


Phase 19 


KAA. 019. 00 


Phase 20 


KAA. 020. 00 


Phase 21 


KAA. 021. 00 


Phase 22 


KAA. 022. 00 


Phase 23 


KAA. 023. 00 


Phase 24 


KAA. 024.00 


Phase 25 


KAA. 025. 00 


Phase 26 


KAA. 026. 00 


Phase 27 


KAA. 027.00 


Assembler Program 




Phase 


MAA. 001. 00 


Phase 1 


MAA. 007. 00 


Phase 1A 


MAA. 008. 00 


Phase 2 


MAA. 012. 00 


Phase 2A 


MAA. 013. 00 


Phase 3 


MAA. 010. 00 


Phase 4 


MAA. 011.00 


Phase 5 


MAA. 015.00 


Phase 6 


MAA. 016. 00 


Phase 7 


MAA. 017. 00 


Phase 7A 


MAA. 018. 00 


Phase 8 


MAA. 019. 00 


Phase 8A 


MAA. 020. 00 


Phase 9 


MAA. 014. 00 


Phase 10 


MAA. 003. 00 


Phase 10A 


MAA. 009. 00 


Phase 11 


MAA. 004. 00 


Phase 12 


MAA. 005. 00 


Error Message Phase 


MAA. 006. 00 


Punch Conversion 




Phase 


MAA. 021. 00 


Read Conversion Phase 


MAA. 002. 00 



Supervisor 

Monitor Control Record 

Analyzer NAA. 001. 00 

System Core Dump 

Program NAA. 002. 00 

Auxiliary Supervisor NAA. 003. 00 

Core Load Builder OAA. 001. 00 
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Disk Monitor 


Microfiche 


Disk Monitor 


Microfiche 


System Component 


Identification 


System Component 


Identification 


System Device Subroutines 


PAA.001.00 


FDXI 


SAA. 005. 00 






FLOAT 


SAA. 005.00 


Standard Precision 




IFK 


SAA. 005. 00 


Arithmetic and Function 




NORM 


SAA. 005. 00 


Subroutines 




SNR 


SAA. 005. 00 


FADD 


RAA. 001.00 


XDD 


SAA. 006. 00 


FAXI 


RAA.001.00 


XMD 


SAA. 006. 00 


FDIV 


RAA. 001. 00 


XMDS 


SAA. 006. 00 


FDVR 


RAA.001.00 






FGETP 


RAA.001.00 


FORTRAN Common 




FLD 


RAA. 002. 00 


Subroutines (No 




FMPY 


RAA. 002. 00 


Precision) 




FSBR 


RAA. 002. 00 


FBTD 


TAA. 001.00 


FABS 


RAA. 002. 00 


IABS 


TAA. 001.00 


FATN 


RAA. 002. 00 


XSQR 


TAA. 001.00 


FAXB 


RAA. 003. 00 


PAUSE 


TAA. 001.00 


FEXP 


RAA. 003. 00 


STOP 


TAA. 002. 00 


FLN 


RAA. 003. 00 


SUBIN 


TAA. 002. 00 


FSIGN 


RAA. 003. 00 


SUBSC 


TAA. 002. 00 


FSIN 


RAA. 003. 00 


TTEST 


TAA. 002. 00 


FSQR 


RAA. 004. 00 


DATSW 


TAA. 002. 00 


FTANH 


RAA. 004. 00 


DVCHK 


TAA. 003. 00 


SFAR 


RAA. 004. 00 


FCTST 


TAA. 003. 00 


SFIF 


RAA. 004. 00 


ISIGN 


TAA. 003. 00 






OVERF 


TAA. 003. 00 


Extended Precision 




PDUMP 


TAA. 003. 00 


Arithmetic and Function 




SLITE 


TAA. 004. 00 


Subroutines 




TSTOP 


TAA. 004. 00 


EADD 


SAA. 001.00 


TSTRT 


TAA. 004. 00 


EAXI 


SAA. 001.00 






EDIV 


SAA. 001.00 


FORTRAN Trace 




EDVR 


SAA. 001.00 


Subroutines 




EGETP 


SAA. 001.00 


SGOTO 


TAA. 009. 00 


ELD 


SAA. 002. 00 


SIAR 


TAA. 009. 00 


EMPY 


SAA. 002. 00 


SIIF 


TAA. 009. 00 


ESBR 


SAA. 002. 00 






EABS 


SAA. 002. 00 


FORTRAN Conversion 




EATN 


SAA. 002. 00 


Subroutines and Tables 




EAXB 


SAA. 003. 00 


EBCTB 


TAA. 006. 00 


EEXP 


SAA. 003. 00 


GETAD 


TAA. 006. 00 


ELN 


SAA. 003.00 


HOLEZ 


TAA. 007.00 


ESIGN 


SAA. 003. 00 


HOLTB 


TAA. 007.00 


ESIN 


SAA. 003. 00 






ESQR 


SAA. 004. 00 


FORTRAN I/O Subroutines 




ETANH 


SAA. 004. 00 


SDFIO 


TAA. 004. 00 


SEAR 


SAA. 004. 00 


SDFND 


TAA. 005. 00 


SEIF 


SAA. 004. 00 


SFIO 


TAA. 005. 00 


FARC 


SAA. 004. 00 


UFIO 


TAA. 006. 00 
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Disk Monitor 


Microfiche 


System Component 


Identification 


FORTRAN Device 




Subroutines 






CARDZ 




TAA. 006. 00 


PAPTZ 




TAA.007.00 


PNCHZ 




TAA. 007. 00 


PRNTZ 




TAA. 008. 00 


PRNZ 




TAA. 008. 00 


READZ 




TAA. 008. 00 


TYPEZ 




TAA. 008. 00 


WRTYZ 




TAA. 008. 00 


Interrupt Level 




Subroutines 


(ILSs) 




ILSOO 




UAA.001.00 


ILS01 




UAA.001.00 


ILS02 




UAA.001.00 


ILS03 




UAA. 001. 00 


ILS04 




UAA.001.00 


Interrupt Service 




Subroutines 


(ISSs) 




CARDO 




UAA. 002. 00 


CARD1 




UAA. 002. 00 


OMPR1 




UAA. 002. 00 


PAPT1 




UAA. 002. 00 


PAPTN 




UAA. 002. 00 


PAPTX 




UAA. 003. 00 


PLOT1 




UAA. 003.00 


PNCHO 




UAA. 003. 00 


PNCH1 




UAA. 003. 00 


PRNT1 




UAA. 004. 00 


PRNT3 




UAA. 004. 00 


RE ADO 




UAA. 004. 00 


READ1 




UAA. 004. 00 


TYPEO 




UAA. 005. 00 


WRTYO 




UAA. 005. 00 


Conversion Subroutines 




and Tables 






EBPRT 




UAA. 005. 00 


HOLEB 




UAA. 005. 00 


HOLPR 




UAA. 006. 00 


HXBIN 




UAA. 006. 00 


PAPEB 




UAA. 006. 00 


PAPHL 




UAA. 006. 00 


PAPPR 




UAA. 006. 00 


SPEED 




UAA. 007. 00 



Disk Monitor 


Microfiche 


System Component 


Identification 


ZIPCO 


UAA. 007. 00 


BIDEC 


UAA. 007. 00 


BINDC 


UAA. 007. 00 


BINHX 


UAA. 007. 00 


CPEBC 


UAA. 008. 00 


CPHOL 


UAA. 008. 00 


CPPT3 


UAA. 008. 00 


DCBIN 


UAA. 008. 00 


DECBI 


UAA. 008. 00 


EBCCP 


UAA. 009. 00 


EBHOL 


UAA. 009. 00 


EBP A 


UAA. 009. 00 


EBPT3 


UAA. 009. 00 


HLEBC 


UAA. 009. 00 


HLPT3 


UAA. 010. 00 


HOLCP 


UAA. 010. 00 


HOLL 


UAA. 010. 00 


PRTY 


UAA. 010. 00 


PT3CP 


UAA. 010. 00 


PT3EB 


UAA. 011. 00 


PTHOL 


UAA. 011. 00 


Utility Dump Subroutines 




DMP80 


UAA. 011. 00 


DMTD0 


UAA. 011. 00 


DMPD1 


UAA. 012. 00 


System Subroutines 




SYSUP 


UAA. 013. 00 


FLIPR 


UAA. 012. 00 


Mainline Programs 




ADRWS 


UAA. 014. 00 


COPY 


UAA. 014. 00 


DISC 


UAA. 015. 00 


DLCIB 


UAA. 016. 00 


DSLET 


UAA. 016. 00 


IDENT 


UAA. 017. 00 


ID 


UAA. 017. 00 


MODIF 


UAA. 018. 00 


PTUTL 


UAA. 019. 00 


CALPR 


UAA. 019. 00 


FSLEN 


UAA. 019. 00 


RDREC 


UAA. 020. 00 


Plotter Subroutines 




ECHAR 


VAA. 001. 00 
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Disk Monitor 


Microfiche 


System Component 


Identification 


ECHRX 


VAA. 001. 00 


EGRID 


VAA.001.00 


EPLOT 


VAA. 001.00 


ERULE 


VAA. 002. 00 


FCHAR 


VAA. 002. 00 


FCHRX 


VAA. 002. 00 


FGRID 


VAA. 002. 00 


FPLOT 


VAA. 003. 00 


FRULE 


VAA. 003. 00 


PLOTI 


VAA. 003. 00 


PLOTX 


VAA. 003. 00 


POINT 


VAA. 003. 00 


SCALE 


VAA. 004. 00 


SCALF 


VAA. 004. 00 


XYPLT 


VAA. 004. 00 


SCA Interrupt Service 




Subroutines (ISSs), 




Conversion Subroutines, 




and Conversion Tables 




EBC48 


WAA. 001.00 


HOL48 


WAA. 001.00 


HOLCA 


WAA. 001. 00 


HXCV 


WAA. 001.00 



Disk Monitor 


Microfiche 


System Component 


Identification 


PRNT2 


WAA. 002. 00 


SCAT1 


WAA. 003. 00 


STRTB 


WAA. 004. 00 


Stand-alone Programs 




Cold Start Card 


ZAA. 001.00 


Console Printer 




Core Dump 




(Paper Tape) 


ZAA. 003. 00 


Console Printer 




Core Dump 




(Card) 


ZAA. 002. 00 


DCIP 


ZAA. 004. 00 


1132/1403 Printer 




Core Dump 




(Paper Tape) 




Phase 1 


ZAA. 007.00 


Phase 2 


ZAA. 008. 00 


1132/1403 Printer 




Core Dump (Card) 




Phase 1 


ZAA. 005.00 


Phase 2 


ZAA. 006. 00 


PTREP 


ZAA. 009.00 


UCART 


ZAA. 010. 00 
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INDEX 



Assembler program 65 

Communications area 66 

Core layout 71 

Double -buffering 67 

Error message phase 71 

Flowcharts 220 

General 65 

Intermediate I/O 67 

Introduction 2 

Overlay area 66 

Phase 67 

Phase 1 67 

Phase 1A 67 

Phase 2 68 

Phase 2A 68 

Phase 3 68 

Phase 4 68 

Phase 5 68 

Phase 6 69 

Phase 7 69 

Phase 7A 69 

Phase 8 69 

Phase 8A 69 

Phase 9 69 

Phase 10 70 

Phase 10A 71 

Phase 11 71 

Phase 12 71 

Program operation 65 

Punch conversion phase 71 

Read conversion phase 71 

Symbol table 66 
Auxiliary supervisor 23 

Cartridge -dependent parameters 

COMMA 3 

DCOM 3 
CIB (see core image buffer) 
Cold start loader 15 
Cold start program 15 
Cold start programs 15 

Cold start loader 15 

Cold start program 15 

Core layout 15 

Flowcharts 191 

Introduction 1 
COMMA (in-core communication area) 3 

(see also resident monitor) 
Communications areas 3 

Cartridge -dependent parameters 3 

Disk -resident (DCOM) 3 

Drive -dependent parameters 3 

Introduction 1 

In-core (COMMA) 3 



Core image buffer (CIB) 

Core load builder 34 
Core image loader 27 

Core layout 28 

Debugging/ analysis aids 30 

Flowcharts 203 

Introduction 1 

Phase 1 27 

Phase 2 27 

Special techniques 27, 28 
Core load builder 33 

Core image buffer (CIB) 34 

Core layout 33 

Debugging/ analysis aids 42 

DEFINE FILE table 39 

Disk buffers 34 

FILES information 35 

Flowcharts 205 

General comments 33 

Interrupt branch table (IBT) 35 

Interrupt level subroutines (ILSs) 37 

Introduction 2 

ISS table 35 

Linkage to LOCALs 37 

Linkage to SOCALs 38 

Load table 35 

LOCAL information 35 

LOCALs 37 

NOCAL information 35 

Overlay scheme 33 

Pass 1 36 

Pass 2 36 

Phase 40 

Phase 1 40 

Phase 2 40 

Phase 3 41 

Phase 4 41 

Phase 5 41 

Phase 6 42 

Phase 7 42 

Phase 8 42 

Phase 9 42 

Phase 10 42 

Phase 11 42 

Phase 12 42 

SOCALs 37 

Transfer vector (TV) 37 

DCIP 111 
DCOM 3 

DEFINE FILE table (DFT) 
Core load builder 39 
DFT (see DEFINE FILE table) 
Disk cartridge initialization program (DCIP) 111 
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Disk I/O subroutine 

Resident monitor 17 

Subroutine data charts 125 

System library 102 
Disk utility program (DUP) 43 

CFACE phase 59 

Communications area (CATCO) 45 

Control records 44 

Core layout 43 

DCT.L phase 51 

DDUMP phase 55 

DEFINE phase 57 

DELETE phase 57 

DEXIT phase 58 

Diagnostic aids 63 

DUMPLET/DUMPFLET phase 56 

DUPCO phase 49 

FILEQ phase 54 

Fixed location equivalence table (FLET) 44 

Flowcharts 207 

Introduction 2 

KFACE phase 60 

Location equivalance table (LET) 44 

PFACE phase 60 

PRECI phase 62 

STORE phase 52 
Disk -resident communications area (DCOM) 3 
Drive -dependent parameters 

COMMA 3 

DCOM 3 
DUP (see disk utility program) 

FILES control record processing 

Disk utility program 54 

Supervisor 22 
FILES information in SCRA 

Disk utility program 55 

Supervisor 22 
Fixed location equivalence table (FLET) 44 
FLET 44 
Flowcharts 1 85 

Assembler program 220 

Cold start programs 191 

Core image loader 203 

Core load builder 205 

Disk utility program 207 

FORTRAN compiler 244 

Supervisor 1 93 

System library 274 

System loader 186 
FORTRAN compiler 73 

Communications area 76 

Compilation errors 81 

Compiler I/O 81 

Core layout 75 

Flowcharts 244 

General 73 

Introduction 2 



Phase area 77 


Phase objectives 


Phase 1 


82 


Phase 2 


82 


Phase 3 


83 


Phase 4 


83 


Phase 5 


84 


Phase 6 


84 


Phase 7 


85 


Phase 8 


85 


Phase 9 


86 


Phase 10 


86 


Phase 11 


87 


Phase 12 


88 


Phase 13 


89 


Phase 14 


89 


Phase 15 


90 


Phase 16 


91 


Phase 17 


92 


Phase 18 


93 


Phase 19 


94 


Phase 20 


94 


Phase 21 


95 


Phase 22 


95 


Phase 23 


95 


Phase 24 


96 


Phase 25 


96 


Phase 26 


96 


Phase 27 


96 


Statement string 


String area 77 


Symbol table 78 



73 



80 



IBT (see interrupt branch table) 
ILSs (see interrupt level subroutines) 
Interrupt branch table (IBT) 

Core load builder 35 
Interrupt level subroutines (ILSs) 

Core load builder 37 

Skeleton supervisor 17 

System library 105 
Interrupt service subroutines (ISSs) 

Subroutine data charts 152 

System library 102 
Introduction 1 
ISSs (see interrupt service subroutines) 

LET 44 

LOCAL control record processing 

Disk utility program 54 

Supervisor 22 
LOCAL information in SCRA 

Disk utility program 55 

Supervisor 22 
LOCAL linkage in TV 37 
LOCALS 37 
Location equivalence table (LET) 44 
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Master cartridge updating 97 

MCRA (see monitor control record analyzer) 

Monitor control record analyzer (MCRA) 19 

JOB control record processing 19 

Other control record processing 20 

System update program 20 

NOCAL control record processing 

Disk utility program 54 

Supervisor 22 
NOCAL information in SCRA 

Disk utility program 55 

Supervisor 22 

Procedures 

Core dump 115 

Core location 115 

Generalized subroutine maintenance/ analysis 120 

Identification of the failing component or function 113 

Program analysis 113 

Subroutine looping 120 

Trace back 120 
Program analysis procedures 113 

Core block diagrams 115 

Core dump procedures 115 

Core location procedures 115 

Generalized subroutine maintenance/ analysis procedure 120 

Identification of the failing component or function 113 

Introduction 113 

Subroutine data charts 125 

Subroutine error number list 115 

Subroutine error stop list 115 

Subroutine looping capabilities 120 

Summary 113 

Trace back procedure 120 
Reload table 

System loader 14 
Resident monitor 17 

COMMA 17 

Disk I/O subroutine 17 

Flowcharts 193 

Introduction 1 

Skeleton supervisor 17 

SCRA (see supervisor control record area) 
Skeleton supervisor 17 

CALL LINK, CALL EXIT, CALL DUMP processor 17 

Error traps 17 

ILSs 1 7 
SLET 

System loader 1 3 
SOCAL linkage in TV 38 
SOCALs 37 
Stand-alone utilities 111 

DCIP 111 

Introduction 2 

UCART 112 



Subroutine data charts 


CARDZ 


140 


CARD0 


152 


CARD1 


154 


DISKN 


180 


DISKZ 


138 


DISK1 


177 


OMPR1 


174 


PAPTN 


170 


PAPTZ 


150 


PAPT1 


168 


PLOT1 


172 


PNCHZ 


142 


PNCH0 


158 


PNCH1 


160 


PRNTZ 


148 


PRNT1 


164 


PRNT3 


166 


PRNZ : 


147 



125 



136 



126 
128 



READZ 144 

READ0 156 

READ1 157 

System device subroutine for console printer 130 

System device subroutine for disk 138 

System device subroutine for keyboard/console printer 125 

System device subroutine for 1132 132 

System device subroutine for 1134/1055 

System device subroutine for 1403 134 

System device subroutine for 1442/1442 

System device subroutine for 2501/1442 

TYPEZ 145 

TYPE0 162 

WRTYZ 146 

WRTY0 1 76 
Subroutine error numbers 115 
Subroutine error stops 115 
Supervisor 1 9 

Auxiliary supervisor 23 

Core layout 24 

Introduction 1 

Monitor control record analyzer (MCRA) 19 

XEQ control record processor 21 

System core dump program 23 
Supervisor control record area (SCRA) 

Disk utility program 55 

Supervisor 22 
Supervisor control record processing 

Disk utility program 54 

Supervisor 22 
Symbol table 

Assembler program 66 

FORTRAN compiler 78 
System core dump program 23 
System device subroutines 109 

Introduction 2 

Subroutine data charts 125 
System library 99 

Arithmetic and function subroutines, common 100, 102 
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Arithmetic and function subroutines, extended precision 99, 101 
Arithmetic and function subroutines, standard precision 100, 101 
Conversion subroutines 103 
Conversion tables 103 
Flowcharts 274 
FORTRAN common 99, 101 
FORTRAN conversion 101 
FORTRAN I/O 100 
FORTRAN sign transfer 99 
FORTRAN trace 100 

Interrupt level subroutines (ILSs) 104, 105 
Interrupt service subroutines (ISSs) 102 
Introduction 2 
Mainline programs 104, 105 
Plotter subroutines 104 
SCA subroutines 103 
Utility subroutines 99 
System Loader 9 



Cartridge identification sector 13 
Core layout 12 
Flowcharts 186 
Introduction 1 
Phase 1 9 
Phase 2 10 
Reload table 14 

System location equivalence table (SLET) 13 
System location equivalence table (SLET) 
System loader 13 

Transfer vector (TV) 

Core load builder 37 
TV (see transfer vector) 

XEQ control record processor 21 

Supervisor control record area (SCRA) 22 
Supervisor control record processing 22 
XEQ control record processing 21 
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